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(n,p),le(m,p))
Thm* ( p:hnum. ( n:hnum. ( m:hnum. ,equal
Thm* ( p:hnum. ( n:hnum. ( m:hnum. ,(equal(sub(p,n),sub(p,m))
Thm* ( p:hnum. ( n:hnum. ( m:hnum. ,,equal(n,m)))))) | [hsub_cancel] |