fact: Definition config_equiv {A}`{M : @EMonoid A op one equ} (c c' : config A): Prop := fst c == fst c' /\ stack_equiv (snd c) (snd c').
imports: Coq(List PArith Relations Lia) additions(Monoid_def Monoid_instances Strategies) Coq(Recdef Wf_nat) additions(More_on_positive Pow Euclidean_Chains Dichotomy BinaryStrat) Coq(NArith)