proposition: Lemma NToWord_WordToN: forall (sz : nat) (w : word sz), NToWord _ (wordToN w) = w.
proof: Proof. intros; rewrite NToWord_nat, wordToN_nat, Nat2N.id. apply natToWord_wordToNat. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat CertifiedExtraction.Extraction.BinEncoders.Basics Coq.Lists.List Bedrock.Word Program