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

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

1	0<||[x / L]||	1 step
2	[x / L][((i, j)(0))] = x	1 step

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