fact: Fixpoint mk_op (w : univ_of_cycles) (op : ZnZ.Ops w) (n : nat) {struct n} : ZnZ.Ops (word w n) := match n return (ZnZ.Ops (word w n)) with | O => op | S n1 => mk_zn2z_ops_karatsuba (mk_op op n1) end.
imports: CyclicAxioms Cyclic63 Int63Compat Bignums(DoubleCyclic BigN) ZArith ZCAux Mod_op