fact: Fixpoint split1' (sz sz' : nat) : word (sz + sz') -> word sz := match sz return word (sz + sz') -> word sz with | 0 => fun _ => WO | S n' => fun w => SW_word (word_split_hd w) (split1' n' sz' (word_split_tl w)) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Logic.Eqdep_dec Fiat.Computation Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.ComposeOpt Fiat.Narcissus.Formats.WordOpt Fiat.Narcissus.Formats.EnumOpt Fiat.Narcissus.Formats.Sequence Fiat.Narcissus.BaseFormats Fiat.Narcissus.BinLib.AlignedEncodeMonad Coq.Vectors.Vector Coq.ZArith.ZArith Bedrock.Word