1 | 13. i:(||v||+1). trace_consistent(rho;da;tr.proj;[u / v][i]) 14. ls: SimpleType List 15. f: reduce(s,m. [[s]] rhom;Prop;ls) 16. ||ls|| = ||v||+1 17. i:. i < ||v||+1 ls[i] term_types(ds;st1;de;[u / v][i]) i:||v||. trace_consistent(rho;da;tr.proj;v[i]) |
2 | 13. i:(||v||+1). trace_consistent(rho;da;tr.proj;[u / v][i]) 14. ls: SimpleType List 15. f: reduce(s,m. [[s]] rhom;Prop;ls) 16. ||ls|| = ||v||+1 17. i:. i < ||v||+1 ls[i] term_types(ds;st1;de;[u / v][i]) 18. ls:SimpleType List, f:reduce(s,m. [[s]] rhom;Prop;ls). ||ls|| = ||v|| & (i:. i < ||v|| ls[i] term_types(ds;st1;de;v[i])) list_accum(x,t.x([[t]] e1 s a tr);f;v) Prop list_accum(x,t.x([[t]] e1 s a tr);f([[u]] e1 s a tr);v) Prop |
About: