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