IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
hanoi seq join part21 1. n : 2. m : 3. a : 4. z : 5. s1 : {a...m}{1...n}Peg
6. s2 : {m+1...z}{1...n}Peg
7. x : {m+1...z}
(s1 @(m) s2)(x) = s2(x)
By:
Compute (s1 @(m) s2)(x) * if xms1(x) else s2(x) fi