fact: Parameter compute_red_is_correct : forall rule_list : list (term * term), (forall l r : term, In (l, r) rule_list -> forall v : variable, In v (var_list r) -> In v (var_list l)) -> forall R : term -> term -> Prop, (forall l r : term, R r l <-> In (l, r) rule_list) -> forall t s : term, In s (compute_red rule_list t) <-> one_step R s t.
imports: Coq(List Relations Wellfounded Arith Setoid) CoLoR(closure more_list weaved_relation dickson term_spec)