fact: Fixpoint word_split_hd {sz} (w : word (S sz)) : bool := match sz return word (S sz) -> bool with | 0 => @whd _ | S n' => fun w => word_split_hd (wtl w) end w.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Common Fiat.Computation.Notations Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.WordFacts Fiat.Narcissus.BaseFormats