fact: Definition normalizeZ p z := let offset := Z.of_N (Npow2 p - 1) in let modulus := Z.of_N (Npow2 (S p) - 1) in (Z.modulo (z + offset) modulus) - offset.
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing ZArith ZArithRing Program