DEFINITION ltof()
TYPE =
       ΠA:Set.(A→nat)→A→A→Prop
BODY =
λA:Set.λf:A→nat.λa:A.λb:A.lt (f a) (f b)