fact: Definition red1 t u := exists l, exists r, exists c, exists d, In (mkRule l r) R /\ t = fill (comp c (comp (cont l) d)) (Var (var t)) /\ u = fill (comp c (comp (cont r) d)) (Var (var t)).
imports: CoLoR(ATrs VecUtil LogicUtil ListUtil NatUtil VecMax EqUtil RelUtil SN ListMax)