IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
swap adjacent instance2212211 1. A : Type
2. P : AAProp
3. X : A List
4. Y : A List
5. a : A 6. b : A 7. P(a,b)
8. i : 9. i<||X @ [b; a / Y]||
10. i<||X||
11. i = ||X||
12. i = ||X||+1
(X @ [b; a / Y])[(||X||+1)] = (X @ [a; b / Y])[((||X||, ||X||+1)(||X||+1))]
By:
Subst' ((||X||, ||X||+1)(||X||+1) = ||X||) 0
THEN
Try (Unfold `flip` 0 THEN Reduce 0 THEN Repeat SplitOnConclITE)