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