fact: Definition InfRuleApp (D : rules) f g := forall d, In d D -> exists h : nat -> nat, forall j, h j < h (S j) /\ hd_red (d :: nil) (g (h j)) (f (S (h j))).
imports: CoLoR(ARelation ListNodup LogicUtil VecUtil RelUtil ListUtil SN BoolUtil EqUtil NatUtil ListMax VecOrd) Coq(Morphisms)