DEFINITION True_ind()
TYPE =
       P:Prop.PTrueP
BODY =
Show proof