fact: Definition EncodeAgain {S : Type} {cache : Cache} {n} (a : @AlignedEncodeM _ S n) (b : nat -> @AlignedEncodeM _ S n) : @AlignedEncodeM _ S n := fun v idx s c => (Ifopt a v idx s c as a' Then (Ifopt b (snd (fst a')) (fst (fst a')) idx s c as b' Then Some (fst (fst b'), snd (fst a'), snd b') Else None) 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