proposition: Lemma w1_b: [|ZnZ.one|] = 1 mod [|b|].
proof: Proof. rewrite ZnZ.spec_1; simpl; auto. rewrite Zmod_small; auto with zarith. split; auto with zarith. rewrite b_p. assert (H : 2 ^ 1 < 2 ^ Zpos p) by (apply Zpower_lt_monotone; auto with zarith). rewrite Zpower_1_r in H; auto with zarith. Qed.
imports: ZArith Znumtheory Zpow_facts CyclicAxioms Cyclic63 Int63Compat Bignums(DoubleCyclic BigN) ZCAux W Mod_op LucasLehmer Bits