IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
nat to nat pair inj1 1. a1 :
2. u:. u<a1 (a3:. nat_to_nat_pair(u) = nat_to_nat_pair(a3) u = a3)
3. a2 :
4. nat_to_nat_pair(a1) = nat_to_nat_pair(a2)
a1 = a2
By:
Compute-1 nat_to_nat_pair(a1) THEN SplitITE Hyp:-1