Thm* all
Thm* ( m:hnum. all
Thm* ( m:hnum. ( n:hnum. all
Thm* ( m:hnum. ( n:hnum. ( p:hnum. implies
Thm* ( m:hnum. ( n:hnum. ( p:hnum. (le(n,p)
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,equal
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,(equal(add(m,n),p)
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,,equal(m,sub(p,n))))))) | [hadd_eq_sub] |