fact: Definition ZToOneC {sz} (z: Z) : word sz := match sz with | O => WO | S sz' => match (normalizeZ sz' z) with | Z0 => wones (S sz') | Zpos x => waddmsb (posToWord sz' x) false | Zneg x => wnot (waddmsb (posToWord sz' x) false) end end.
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing ZArith ZArithRing Program