DEFINITION tlt()
TYPE =
       TTProp
BODY =
λt1:T.λt2:T.lt (weight t1) (weight t2)