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