DEFINITION ltof()
TYPE =
       ΠA:Set.(A→nat)→A→A→Prop
BODY =
Show proof