proposition: Lemma wordToN_posToWord : forall (sz : nat) (p : positive), Npos p < Npow2 sz -> wordToN (posToWord sz p) = Npos p.
proof: Proof. intros; rewrite <- (wordToN_NToWord_idempotent sz (Npos p)); auto. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing