IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
upto decomp222112 1. m : 2. 0<m 3. n:(m-1+1). upto(m-1) ~ (upto(n) @ map(x.x+n;upto(m-1-n)))
4. n : (m+1)
5. n = m 6. m = 0
7. upto(m-1) ~ (upto(n) @ map(x.x+n;upto(m-1-n)))
8. m-n = 0
(map(x.x+n;upto(m-1-n)) @ [(m-1)]) ~ map(x.x+n;upto(m-n-1) @ [(m-n-1)])