fact: Axiom diveucl_21_spec : forall a1 a2 b, let (q,r) := diveucl_21 a1 a2 b in let (q',r') := Z.div_eucl (φ a1 * wB + φ a2) φ b in φ a1 < φ b -> φ q = q' /\ φ r = r'.
imports: Utf8 DoubleType Lia Zpow_facts Zgcd_alt PrimInt63