Thm* r:rel(), as:(Label Term) List.
( x:Label. unprime(apply_alist(as;x;x)) = x)  rel_unprime(rel_subst(as;r)) = rel_unprime(r) | [trivial_rel_subst] |
Thm* t:Term, as:(Label Term) List.
( x:Label. unprime(apply_alist(as;x;x)) = x)  unprime(term_subst(as;t)) = unprime(t) | [trivial_term_subst] |
Thm* t:Term, ds,da,de:Top.
term_types(ds;da;de;unprime(t)) ~ term_types(ds;da;de;t) | [term_types_unprime] |