fact: Definition fast_int63_power (x :positive)(n:N) : Z := to_Z (cpower (make_chain dicho) n (of_pos x)).
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) Int63.Uint63 Monoid_instances