IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
delete fenum value is inj genW1 1. P : Prop
2. Q : Prop
3. f : {u:| P(u) }{v:| Q(v) }
4. Inj({u:| P(u) }; {v:| Q(v) }; f)
5. m : {u:| P(u) }
6. k : {v:| Q(v) }
7. (Replace value k by f(m) in f) {u:| P(u) & u = m }{v:| Q(v) & v = k }
Inj({u:| P(u) & u = m }; {v:| Q(v) & v = k };
Inj(Replace value k by f(m) in f)
8. a1 :
9. P(a1) & a1 = m 10. a2 :
11. P(a2) & a2 = m 12. (Replace value k by f(m) in f)(a1) = (Replace value k by f(m) in f)(a2)
a1 = a2 {u:| P(u) & u = m }
9 steps
About:
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html