fact: Definition DoneLax {S T} {cache : Cache} {monoid : Monoid T} (format : FormatM S T) : FormatM (S * T) T := fun s_rest env txenv => exists t', fst txenv = mappend t' (snd s_rest) /\ format (fst s_rest) env (t', snd txenv).
imports: Coq.Lists.List Fiat.Common Fiat.Computation.Core Fiat.Computation.Notations Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.Monoid Fiat.Narcissus.Stores.Cache