fact: Definition AM_power {A : Type} `(M: @EMonoid A E_op E_one E_eq) (x:A) (n:positive) := exec A E_op (chain_gen (gen_F n)) 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) Coq(NArith)