fact: Fixpoint double_modn1_0 (n:nat) : w -> word w n -> w := match n return w -> word w n -> w with | O => fun r x => snd (w_div21 r x b2p) | S n => double_modn1_0_aux n (double_modn1_0 n) end.
imports: ZArith Ndigits Lia BigNumPrelude DoubleType DoubleBase