fact: Variable R_reg : forall s t, R s t -> forall x, In x (var_list s) -> In x (var_list t) .
imports: Coq(List Relations Wellfounded Arith Setoid) CoLoR(closure more_list weaved_relation dickson term_spec equational_theory_spec)