fact: Definition Fchain_correct (p: positive) (c: code) := (forall A op one equ (M: @EMonoid A op one equ) (x:A) s, result_equiv (M:=M) (exec A op c x s) (Some (Pow.Pos_bpow x p, s))) .
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)