fact: Fixpoint chain_dps (a : rule) (l : rules) : relation term := match l with | nil => chain_dp a | b :: m => chain_dp a @ chain_dps b m end.
imports: Coq(Lia) CoLoR(LogicUtil ATrs ListUtil RelUtil RelSub Path ARelation SN ListOccur ListNodup AShift VecUtil ASubstitution Iter Cycle)