fact: Definition fold_pow_mod (a: w) l := fold_left (fun a' (qp:positive*positive) => pow a' (fst qp)) l a.
imports: List ZArith Zorder ZCAux LucasLehmer Pocklington ZArith Znumtheory Zpow_facts CyclicAxioms Cyclic63 Int63Compat Bignums(DoubleCyclic BigN) Pmod Mod_op W Lucas PocklingtonCertificat NEll