1. 'a : S
2. 'b : S
3. P : 'b
4. rep : 'a'b
5. abs : 'b'a
6. a : 'a
7. r : 'b
8. iso_pair('a;'b;P;rep;abs)
9. rep(a) = r
  a = abs(r)

By:	FwdThru Thm* 'a,'b:S, P:('b), rep:('a'b), abs:('b'a). Thm* iso_pair('a;'b;P;rep;abs) Thm*  Thm* (a:'a. abs(rep(a)) = a) & (r:'b. P(r) = ((rep(abs(r))) = r)) [8] THEN Unab [`iso_pair`] THEN StrongAuto

1

8. r:'b. abs(r) = (@a:'a. (r = rep(a))) 9. type_definition('b;'a;P;rep) 10. rep(a) = r 11. a:'a. abs(rep(a)) = a 12. r:'b. P(r) = ((rep(abs(r))) = r)   a = abs(r)

2 steps

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html