fact: Fixpoint word_dequeue sz (w : word (S sz)) : bool * word sz := match sz return word (S sz) -> bool * word sz with | 0 => fun w => (whd w, WO) | S sz' => fun w => let (b, w') := word_dequeue (wtl w) in (b, WS (whd w) w') end w.
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