DEFINITION True_rec()
TYPE =
       ΠP:Set.PTrueP
BODY =
Show proof