Nuprl - Proof: hsub right eq

IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: hsub right eq

all

(

m:hnum. all

(

m:hnum. (

n:hnum. all

(

m:hnum. (

n:hnum. (

p:hnum. equal

(

m:hnum. (

n:hnum. (

p:hnum. (equal(sub(m,n),p)

(

m:hnum. (

n:hnum. (

p:hnum. ,or(equal(m,add(n,p)),and(le(m,n),le(p,0)))))))

By:	HOL "hsub_right_eq"

Generated subgoals:

None

About:

IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html