fact: Definition collapse_subst s := apply_subst (map (fun v : variable => (v, Var (inject 0))) (var_list s)) s.
imports: Coq(List Relations Wellfounded Arith Setoid) CoLoR(closure more_list weaved_relation dickson term_spec equational_theory_spec)