IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
card nsub inj vs lopped1131 1. a : 2. b : 3. (f.<f(a-1),f>) (a injb)(i:b(a-1) inj {x:b| x = i })
4. (ie.ie/i,e. x.if x=a-1i else e(x) fi)
4. (i:b(a-1) inj {x:b| x = i })a injb 5. f : ab 6. Inj(a; b; f)
(x.if x=a-1f(a-1) else f(x) fi) = fa injb
By:
Analyze THEN (FunExtensionality THEN Reduce Concl)