proposition: Corollary length_ByteString_map_nat {S} : forall (sz : nat) (f : S -> nat) (s : S) (b : ByteString) (ctx ctx' : CacheFormat), Projection_Format (format_nat sz) f s ctx ∋ (b, ctx') -> length_ByteString b = sz.
proof: Proof. unfold format_nat; intros. apply EquivFormat_Projection_Format in H. eauto using length_ByteString_word. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Narcissus.BinLib Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.ComposeOpt Fiat.Narcissus.Common.ComposeCheckSum Fiat.Narcissus.Common.ComposeIf Fiat.Narcissus.Formats Fiat.Narcissus.BaseFormats Fiat.Narcissus.Automation.Solver Fiat.Narcissus.Automation.NormalizeFormats Bedrock.Word