IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
concat map upto T:Type, f:((T List)), t,t':.
t<t' concat(map(f;upto(t))) @ (f(t)) concat(map(f;upto(t')))
By:
Auto THEN Subst ((concat(map(f;upto(t))) @ (f(t))) ~ concat(map(f;upto(t+1)))) 0