1. T : Type
2. L : T List
3. x : T
4. i : {1..(||L||+1)}
5. j : {1..(||L||+1)}
6. i1 : 
7. i1<||swap([x / L];i;j)||
8. i1 = 0
  swap([x / L];i;j)[0] = [x / swap(L;i-1;j-1)][0]

1

swap([x / L];i;j)[0] = x

3 steps

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