proposition: Lemma EncodeMEquivAlignedEncodeM_const {S A} {cache : Cache} (enc' : EncodeM A ByteString) (enc : forall sz, AlignedEncodeM sz) (enc_OK : EncodeMEquivAlignedEncodeM enc' enc) : forall a, EncodeMEquivAlignedEncodeM (S:=S) (fun _ ce => enc' a ce) (fun sz v n _ ce => enc sz v n a ce).
proof: Proof. intros. repeat split; simpl; intros; edestruct enc_OK as [? [? [? ?]]]; eauto. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Bedrock.Word Coq.ZArith.ZArith Coq.NArith.NArith Coq.Arith.Arith Coq.Numbers.Natural.Peano.NPeano Coq.Logic.Eqdep_dec Fiat.Common.BoundedLookup Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.ComposeOpt Fiat.Narcissus.Common.ComposeIf Fiat.Narcissus.BaseFormats Fiat.Narcissus.BinLib.Core Fiat.Narcissus.BinLib.AlignedByteString