fact: Fixpoint all_pow_mod (prod a: w) (l:dec_prime) {struct l}: w*w := match l with | nil => (prod,a) | (q,_) :: l => let m := pred (fold_pow_mod a l) in all_pow_mod (times prod m) (pow a q) l end.
imports: List ZArith Zorder ZCAux LucasLehmer Pocklington ZArith Znumtheory Zpow_facts CyclicAxioms Cyclic63 Int63Compat Bignums(DoubleCyclic BigN) Pmod Mod_op W Lucas PocklingtonCertificat NEll