fact: Definition lucas_step p x p1 := let op := cmk_op (Peano.pred (nat_of_P (get_height 63 p))) in let b := znz_of_Z op (Zpower 2 (Zpos p) - 1) in let zp := znz_of_Z op (Zpos p) in let mod_op := mmake_mod_op op b zp in ZnZ.to_Z (lucastest_step op mod_op (znz_of_Z op x) p1).
imports: ZArith Znumtheory Zpow_facts CyclicAxioms Cyclic63 Int63Compat Bignums(DoubleCyclic BigN) ZCAux W Mod_op LucasLehmer Bits