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