IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
concat map upto1 1. T : Type
2. f : (T List)
3. t : 4. t' : 5. t<t' (concat(map(f;upto(t))) @ (f(t))) ~ concat(map(f;upto(t+1)))
By:
RW (AddrC [2] (RecUnfoldC `upto`)) 0 THEN SplitOnConclITE