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