IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
flip adjacent112111 1. k : 2. k 3. k 4. n : 5. 0<n 6. x,y:k. y-x = n-1 (L:(k-1) List. (x, y) = compose_flips(L))
7. x1 : k 8. y1 : k 9. y1-x1 = n 10. L : (k-1) List
11. (x1+1, y1) = compose_flips(L)
12. y1 = x1+1
(x1, y1) = compose_flips([x1])
By:
HypSubstSq -1 0 THEN Unfold `compose_flips` 0 THEN Unfold `compose_list` 0
THEN
Reduce 0