1. A : Type
2. L : A List
3. 1<||L||
4. ||tl(L)|| = ||L||-1
5. ||tl(tl(L))|| = ||L||-2
6. i : 
7. i<||swap(L;0;1)||
8. swap(L;0;1)[0] = L[1]
9. swap(L;0;1)[1] = L[0]
10. ||swap(L;0;1)|| = ||L||
11. L = swap(swap(L;0;1);0;1)
12. x:||swap(L;0;1)||. x = 0  x = 1  swap(L;0;1)[x] = L[x]
13. i = 0
14. i = 1
  swap(L;0;1)[i] = tl(tl(L))[(i-1-1)]

By:	Repeat (RWO Thm* as:A List, n:(||as||-1). tl(as)[n] = as[(n+1)] 0)

1

swap(L;0;1)[i] = L[(i-1-1+1+1)]

2 steps

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