DEFINITION clt()
TYPE =
       C→C→Prop
BODY =
λc1:C.λc2:C.lt (cweight c1) (cweight c2)