fact: Fixpoint monoid_get_word {T} {monoid : Monoid T} {monoid_opt : QueueMonoidOpt monoid bool} (sz : nat) (b : T) : option (word sz) := match sz with | 0 => Some WO | S sz' => match dequeue_opt b with | Some (c, b') => match monoid_get_word sz' b' with | Some w => Some (SW_word c w) | _ => None end | _ => None end 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