1 | 1. x: Term 2. u: Term Type{i'} 3. w: x:{v:Term| u(v) }  as:(Label Term) List.
( v:Label. (v term_vars(x))  (v 1of(unzip(as))))  term_subst2(as;(x)') = term_subst(as;x) 4. x2: Label as:(Label Term) List. ( v:Label. (v [x2])  (v 1of(unzip(as))))  apply_alist(as;x2;x2') = apply_alist(as;x2;x2) |