fact: Definition chain_apply c {A:Type} {op:A->A->A}{one:A}{equ: Equiv A} (M: EMonoid op one equ) x := exec _ op c x nil.
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)