proposition: Lemma ReturnAlignedEncodeM_RightUnit {n}: forall (f : AlignedEncodeM n), AlignedEncodeMEquiv (AppendAlignedEncodeM f ReturnAlignedEncodeM) f.
proof: Proof. unfold ReturnAlignedEncodeM, AppendAlignedEncodeM, AlignedEncodeMEquiv; simpl; intros. destruct (f v idx s c) as [ [ [? ?] ?] | ] ; simpl; reflexivity. 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