proposition: Lemma BoundedN_BoundedNat {sz} : forall x, lt x (pow2 sz) -> N.lt (N.of_nat x) (Npow2 sz).
proof: Proof. intros. apply Nomega.Nlt_in. rewrite Nat2N.id, Npow2_nat. assumption. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat CertifiedExtraction.Extraction.BinEncoders.Basics Coq.Lists.List Bedrock.Word Program Nomega