fact: Fixpoint word_split_tl {sz} (w : word (S sz)) : word sz := match sz return word (S sz) -> word sz with | 0 => fun _ => WO | S n' => fun w => WS (whd w) (word_split_tl (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