IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
rdist-property112122 1. R : Id 2. in : |R|IdLnk
3. out : |R|IdLnk
4. i : |R|
5. j : |R|
6. ring(R;in;out)
7. (k.x.n(x)^k+1(i) = j) 8. n:. x.n(x)^n+1(i) = j 9. i@0:. i@0<d(i;j)-1 x.n(x)^i@0+1(i) = j k:. k<d(i;j) x.n(x)^k(i) = j
By:
Auto THEN InstHyp [k-1] -3 THEN Subst ((k-1+1) ~ k) -1 THENL [Auto;Id]