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