fact: Definition zpow sc p n := let (p,sc') := scal sc p n in (p, ZnZ.to_Z (ZnZ.gcd sc' zN)).
imports: ZArith Znumtheory Zpow_facts CyclicAxioms Cyclic63 Int63Compat Bignums(DoubleCyclic BigN) W Mod_op ZEll Bits Zmod