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