1. T : Type
2. l : T List
3. x : T
4. i,j:. i<||l||+1  j<||l||+1  i = j  [x / l][i] = [x / l][j]
5. i : 
6. j : 
7. i<||l||
8. j<||l||
9. i = j
  l[i] = l[j]

1

10. [x / l][(i+1)] = [x / l][(j+1)]   l[i] = l[j]

1 step

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