fact: Definition AppendAlignedEncodeM {n : nat} (a : AlignedEncodeM n) (b : AlignedEncodeM n) : AlignedEncodeM n := fun v idx s c => (Ifopt a v idx s c as a' Then (b (fst (fst a')) (snd (fst a')) s (snd a')) Else None).
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