DEFINITION leqz_leq()
TYPE =
       a1:A.a2:A.(leq gz a1 a2)(leqz a1 a2)
BODY =
Show proof