fact: Definition Fchain_correct (n:nat) (fc : Fchain) := forall A `(M : @EMonoid A op E_one E_equiv) k (a:A), computation_execute op (fc A k a)== computation_execute op (k (a ^ n)).
imports: Coq(Inverse_Image Inclusion Wf_nat NArith Arith PArith Recdef Wf_nat Lexicographic_Product Lia) additions(Addition_Chains Compatibility More_on_positive Wf_transparent Dichotomy BinaryStrat) Coq(Lia)