fact: Fixpoint decode_word' (s : nat) (b : T) {struct s} : option (word s * T) := match s with | O => Some (WO, b) | S s' => `(c, b') <- dequeue_opt b; `(w', b') <- decode_word' s' b'; Some (SW_word c w', b') end.
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