DEFINITION ltof()
TYPE =
       ΠA:Set.(Anat)AAProp
BODY =
Show proof