fact: Definition red_pos R u v := exists p, exists l, exists r, exists s, In (mkRule l r) R /\ subterm_pos u p = Some (sub s l) /\ replace_pos u p (sub s r) = Some v.
imports: CoLoR(ATrs ListUtil NatUtil VecUtil LogicUtil OptUtil)