By: |
RewriteOfThm
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. (sub(m,sub(n,p))
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ,cond(le(n,p),m,sub(add(m,p),n))))))
(SimpsetC [`hol_to_nuprl`;`bequal`]) |