fact: Fixpoint SkipCurrentBytes {n : nat} (m : nat) : AlignedDecodeM () n := match m return AlignedDecodeM () n with | 0 => ReturnAlignedDecodeM () | S m' => BindAlignedDecodeM SkipCurrentByte (fun _ => BindAlignedDecodeM (SkipCurrentBytes m') (fun _ => ReturnAlignedDecodeM ())) end.
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.Narcissus.Common.Specs Fiat.Narcissus.BinLib.Core Fiat.Narcissus.BinLib.AlignedByteString