1 | 15. tc(r;ds; < > ;de) & a1 [[ < > ]] rho & a2 [[ < > ]] rho 16. aa: Term List 17. r.args = aa reduce( t,vs. term_free_vars(t) @ vs;nil;aa) = nil  (list_accum(x,t.x([[t]] 1of(e) s a2 tr);[[r.name]] rho 2of(e) ;aa) ~ list_accum(x,t.x([[t]] 1of(e) s a1 tr);[[r.name]] rho 2of(e) ;aa)) |