fact: Definition mod_rewrite (t : term) (dm : mod_data) : option term := let (ds,d) := dm in match rewrites E t ds with | None => None | Some ts => rewrite R (last ts t) d end.
imports: Coq(Euclid Wf_nat) CoLoR(ATrs LogicUtil ALoop ListUtil RelUtil NatUtil APosition AMatching ARelation)