fact: Definition order_compatible xs ys xs' ys' := forall x x' y y', In x xs -> In x' xs' -> P x x' -> In y ys -> In y' ys' -> P y y' -> (x >A y -> x' >A y') /\ (x =A= y -> x' =A= y').
imports: Coq(Transitive_Closure Compare_dec Relations Permutation Setoid Morphisms Basics Lia) CoLoR(RelExtras MultisetTheory ListPermutation MultisetCore ListExtras AccUtil LogicUtil)