fact: Fixpoint CharList_dequeue (l : list char) : option (bool * (list char) * word 7) := match l with | nil => None | c :: l' => let (b, w') := word_dequeue c in match CharList_dequeue l' with | Some (b', l'', tail) => Some (b, WS b' w' :: l'', tail) | None => Some (b, [ ], w') end end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Bedrock.Word Coq.ZArith.ZArith Coq.NArith.NArith Coq.Arith.Arith Coq.Numbers.Natural.Peano.NPeano Coq.Logic.Eqdep_dec Fiat.Narcissus.Common.Specs