proposition: Lemma lt_1_pow2_16 : lt 1 (pow2 16).
proof: Proof. intros. rewrite <- (wordToNat_natToWord_idempotent 16 1). eapply wordToNat_bound. simpl; eapply BinNat.N.ltb_lt; reflexivity. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Bool.Bool Coq.ZArith.ZArith Coq.Lists.List Fiat.Common.DecideableEnsembles Fiat.Common.EnumType Fiat.Common.BoundedLookup Fiat.Common Fiat.Common.ilist Fiat.Common.Tactics.CacheStringConstant Fiat.Common.IterateBoundedIndex Fiat.Computation Bedrock.Word