By: |
RewriteOfThm
Thm* all
Thm* ( p:hnum. all
Thm* ( p:hnum. ( m:hnum. all
Thm* ( p:hnum. ( m:hnum. ( n:hnum. equal
Thm* ( p:hnum. ( m:hnum. ( n:hnum. (equal(mult(n,suc(p)),mult(m,suc(p)))
Thm* ( p:hnum. ( m:hnum. ( n:hnum. ,equal(n,m)))))
(SimpsetC [`hol_to_nuprl`;`bequal`]) |