By: |
RewriteOfThm
Thm* all
Thm* ( c:hnum. all
Thm* ( c:hnum. ( b:hnum. implies
Thm* ( c:hnum. ( b:hnum. (le(c,b)
Thm* ( c:hnum. ( b:hnum. ,all
Thm* ( c:hnum. ( b:hnum. ,( a:hnum. equal(sub(add(a,b),c),add(a,sub(b,c)))))))
(SimpsetC [`hol_to_nuprl`;`bequal`]) |