proposition: Lemma monoid_dequeue_encode_word' (sz' : nat) : forall (w : word sz') (ext : T), monoid_dequeue_word sz' (mappend (encode_word' _ w mempty ) ext) = Some (w, ext).
proof: Proof. intros; unfold monoid_dequeue_word. apply decode_encode_word'. Qed.
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