Nuprl - Pf div_4_to_1 1 1 1 1 1 1 1

1. a:
2. b: {...-1}
3. -b(a (-b)) < -b+b(a b)
4. b(a b) < -b+-b(a (-b))

(a b) = -(a (-b))

By: AssertL [(-b)(a (-b)) < (-b)(1+-(a b));(-b)(-(a b)) < (-b)(1+(a (-b)))] THENA Arith

Generated subgoal:

1 5. (-b)(a (-b)) < (-b)(1+-(a b))
6. (-b)(-(a b)) < (-b)(1+(a (-b)))
(a b) = -(a (-b))

About: