DEFINITION ltof()
TYPE =
       ΠA:Set.(Anat)AAProp
BODY =
λA:Set.λf:Anat.λa:A.λb:A.lt (f a) (f b)