proposition: Corollary dequeue_encode_word'_enqueue_opt : forall n w b ext, dequeue_opt (mappend (encode_word' n w (enqueue_opt b mempty)) ext) = Some (b, (mappend (encode_word' n w mempty) ext)).
proof: Proof. intros; eapply dequeue_encode_word'_enqueue_opt'. eapply dequeue_head_opt. 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