Thm* all
Thm* ( m:hnum. all
Thm* ( m:hnum. ( n:hnum. all
Thm* ( m:hnum. ( n:hnum. ( p:hnum. equal
Thm* ( m:hnum. ( n:hnum. ( p:hnum. (equal(m,sub(n,p))
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,or
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,(equal(add(m,p),n)
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,,and(le(m,0),le(n,p))))))) | [hsub_left_eq] |