fact: Definition subst_ran (G: Subst) : Env := fold_left (fun E S => match S with | None => E | Some T => E [+] env T end ) G EmptyEnv.
imports: CoLoR(RelExtras ListPermutation TermsConv ListUtil ListExtras LogicUtil) Coq(Arith Lia)