(37steps total) PrintForm Definitions Lemmas mb list 2 Sections MarkB generic Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: range sublist 2 2 1 3

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. 
11. ||L1|| = n-1
11. & increasing(i.f(i+1)-1;||L1||)
11. & & (j:||L1||. L1[j] = v[((i.f(i+1)-1)(j))])
  L1:T List. 
  ||L1|| = n   & increasing(f;||L1||) & (j:||L1||. L1[j] = [u / v][(f(j))])


By: ExRepD THEN InstConcl [[u / L1]] THEN Reduce 0


Generated subgoals:

1 11. L1 : T List
12. ||L1|| = n-1  
13. increasing(i.f(i+1)-1;||L1||)
14. j:||L1||. L1[j] = v[((i.f(i+1)-1)(j))]
  increasing(f;||L1||+1)

2 steps
2 11. L1 : T List
12. ||L1|| = n-1  
13. increasing(i.f(i+1)-1;||L1||)
14. j:||L1||. L1[j] = v[((i.f(i+1)-1)(j))]
15. j : (||L1||+1)
  [u / L1][j] = [u / v][(f(j))]

7 steps

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

(37steps total) PrintForm Definitions Lemmas mb list 2 Sections MarkB generic Doc