By: |
RewriteOfThm
Thm* all
Thm* ( m:hnum. all
Thm* ( m:hnum. ( n:hnum. all
Thm* ( m:hnum. ( n:hnum. ( p:hnum. all
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ( q:hnum. implies
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ( q:hnum. (and(le(m,p),le(n,q))
Thm* ( m:hnum. ( n:hnum. ( p:hnum. ( q:hnum. ,le(add(m,n),add(p,q)))))))
(SimpsetC [`hol_to_nuprl`;`bequal`]) |