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
  swap(L;0;1)[i] = [L[1]; L[0] / tl(tl(L))][i]

By:	RWO Thm* a:T, as:T List, i:. 0<i  i||as||  [a / as][i] = as[(i-1)] 0 THENA Reduce 0

1

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

5 steps

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