fact: Definition mkProd_pred (l:dec_prime) := fold_right (fun (k:positive*positive) r => if ((snd k) ?= 1)%P then r else times (pow (fst k) (Pos.pred (snd k))) r) 1%positive l.
imports: List ZArith Zorder ZCAux LucasLehmer Pocklington ZCmisc Pmod