fact: Fixpoint high (n:nat) : word w n -> w := match n return word w n -> w with | O => fun a => a | S n => fun (a:zn2z (word w n)) => match a with | W0 => w_0 | WW h l => high n h end end.
imports: ZArith Ndigits Lia BigNumPrelude DoubleType DoubleBase