1. T : Type
2. T List
3. u : T
4. v : T List
5. n:, f:(n||v||).
5. increasing(f;n)
5. 
5. (L1:T List. 
5. (||L1|| = n & increasing(f;||L1||) & (j:||L1||. L1[j] = v[(f(j))]))
6. n : 
7. f : n||[u / v]||
8. increasing(f;n)
9. n = 0
10. f(0) = 0
11. L1 : T List
12. ||L1|| = n
13. increasing(fadd(f;i.0-1);||L1||)
14. j:||L1||. L1[j] = v[(fadd(f;i.0-1)(j))]
15. j : ||L1||
  L1[j] = [u / v][(f(j))]

1

14. j:||L1||. L1[j] = v[(f(j)+-1)] 15. j : ||L1|| 16. L1[j] = v[(f(j)+-1)]   L1[j] = [u / v][(f(j))]

4 steps

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