1. T : Type
2. x1 : T
3. x2 : T
4. L1 : T List
5. L2 : T List
6. x1 = x2
7. f : ||L1||||L2||
8. increasing(f;||L1||)
9. j:||L1||. L1[j] = L2[(f(j))]
  (i.if i=0 0 else f(i-1)+1 fi)  (||L1||+1)(||L2||+1)

1

10. i : (||L1||+1)   if i=0 0 else f(i-1)+1 fi  (||L2||+1)

1 step

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