fact: Parameter rwr_at_pos : forall R p t sigma u v t', subterm_at_pos t p = Some (apply_subst sigma u) -> rwr R u v -> t' = (replace_at_pos t (apply_subst sigma v) p) -> rwr R t t'.
imports: Coq(List Relations Wellfounded Arith Setoid) CoLoR(closure more_list weaved_relation dickson term_spec)