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]||
  (X @ [b; a / Y])[i] = swap(X @ [a; b / Y];||X||;||X||+1)[i]

By:	RWO Thm* L:T List, i,j,x:||L||. swap(L;i;j)[x] = L[((i, j)(x))] 0

1

(X @ [b; a / Y])[i] = (X @ [a; b / Y])[((||X||, ||X||+1)(i))]

16 steps

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html