fact: Definition Ord L R := L <>mul empty /\ (forall r, r in R -> (exists2 l, l in L & l >A r)).
imports: Coq(Transitive_Closure Compare_dec Relations Permutation Setoid Morphisms Basics Lia) CoLoR(RelExtras MultisetTheory ListPermutation MultisetCore ListExtras AccUtil LogicUtil)