1 | 14. i: ||r.args||. trace_consistent(rho;daa;tr.proj;r.args[i]) 15. tc(r;ds;da;de) 16. subst_mentions_trace(as) 17. x:Label.
(x rel_primed_vars(r))

( t:SimpleType.
mk_dec(x, t) ds

t term_types(ds;da;de;apply_alist(as;x;x))
& s'.x = [[apply_alist(as;x;x)]] 1of(e) s a tr [[t]] rho) 18. tc(rel_subst2(as;r);ds;da;de) 19. i: ||rel_subst2(as;r).args||. trace_consistent(rho;daa;tr.proj;rel_subst2(as;r).args[i]) 20. ||rel_subst2(as;r).args|| = ||r.args||  21. i:  22. i < ||rel_subst2(as;r).args|| 23. i < ||r.args|| 24. t: Term 25. r.args[i] = t 26. tc1(r;de) 27. trace_consistent(rho;daa;tr.proj;rel_subst2(as;r).args[i]) 28. trace_consistent(rho;daa;tr.proj;r.args[i]) trace_consistent(rho;daa;tr.proj;t) |