fact: Definition red u v := exists l r c s, In (mkRule l r) R /\ u = fill c (sub s l) /\ v = fill c (sub s r).
imports: CoLoR(ARelation ListNodup LogicUtil VecUtil RelUtil ListUtil SN BoolUtil EqUtil NatUtil ListMax VecOrd) Coq(Morphisms)