1 | 20. ||v||+1 = ||v1||+1  21. ls: SimpleType List 22. u2: SimpleType 23. v2: SimpleType List 24. ||v2||+1 = ||v||+1 25. f: [[u2]] rho reduce( s,m. [[s]] rho m;Prop;v2) 26. i: (||v||+1). trace_consistent(rho;daa;tr.proj;[u / v][i]) 27. i: (||v1||+1). trace_consistent(rho;daa;tr.proj;[u1 / v1][i]) 28. ||v2||+1 = ||v||+1 & ( i: . i < ||v||+1  [u2 / v2][i] term_types(ds;da;de;[u / v][i])) 29. ||v2||+1 = ||v1||+1 & ( i: . i < ||v1||+1  [u2 / v2][i] term_types(ds;da;de;[u1 / v1][i])) 30. i: . i < ||v||+1  [[[u / v][i]]] e1 s1 a tr = [[[u1 / v1][i]]] e1 s1 s2 a tr [[[u2 / v2][i]]] rho list_accum(x,t.x([[t]] e1 s1 a tr);f([[u]] e1 s1 a tr);v)  list_accum(x,t.x([[t]] e1 s1 s2 a tr);f([[u1]] e1 s1 s2 a tr);v1) |
2 | 20. ||v||+1 = ||v1||+1  21. ls: SimpleType List 22. u2: SimpleType 23. v2: SimpleType List 24. ||v2||+1 = ||v||+1 25. f: [[u2]] rho reduce( s,m. [[s]] rho m;Prop;v2) 26. i: (||v||+1). trace_consistent(rho;daa;tr.proj;[u / v][i]) 27. i: (||v1||+1). trace_consistent(rho;daa;tr.proj;[u1 / v1][i]) 28. ||v2||+1 = ||v||+1 & ( i: . i < ||v||+1  [u2 / v2][i] term_types(ds;da;de;[u / v][i])) 29. ||v2||+1 = ||v1||+1 & ( i: . i < ||v1||+1  [u2 / v2][i] term_types(ds;da;de;[u1 / v1][i])) 30. i:  31. i < ||v||+1 i < ||[u2 / v2]|| |
3 | 20. ||v||+1 = ||v1||+1  21. ls: SimpleType List 22. u2: SimpleType 23. v2: SimpleType List 24. ||v2||+1 = ||v||+1 25. f: [[u2]] rho reduce( s,m. [[s]] rho m;Prop;v2) 26. i: (||v||+1). trace_consistent(rho;daa;tr.proj;[u / v][i]) 27. i: (||v1||+1). trace_consistent(rho;daa;tr.proj;[u1 / v1][i]) 28. ||v2||+1 = ||v||+1 & ( i: . i < ||v||+1  [u2 / v2][i] term_types(ds;da;de;[u / v][i])) 29. ||v2||+1 = ||v1||+1 & ( i: . i < ||v1||+1  [u2 / v2][i] term_types(ds;da;de;[u1 / v1][i])) 30. i:  31. i < ||v||+1 [[[u / v][i]]] e1 s1 a tr [[[u2 / v2][i]]] rho |
4 | 20. ||v||+1 = ||v1||+1  21. ls: SimpleType List 22. u2: SimpleType 23. v2: SimpleType List 24. ||v2||+1 = ||v||+1 25. f: [[u2]] rho reduce( s,m. [[s]] rho m;Prop;v2) 26. i: (||v||+1). trace_consistent(rho;daa;tr.proj;[u / v][i]) 27. i: (||v1||+1). trace_consistent(rho;daa;tr.proj;[u1 / v1][i]) 28. ||v2||+1 = ||v||+1 & ( i: . i < ||v||+1  [u2 / v2][i] term_types(ds;da;de;[u / v][i])) 29. ||v2||+1 = ||v1||+1 & ( i: . i < ||v1||+1  [u2 / v2][i] term_types(ds;da;de;[u1 / v1][i])) 30. i:  31. i < ||v||+1 [[[u1 / v1][i]]] e1 s1 s2 a tr [[[u2 / v2][i]]] rho |