DEFINITION tlt()
TYPE =
       T→T→Prop
BODY =
Show proof