fact: Definition sequence_Encode {S : Type} (encode1 encode2 : EncodeM S T) := (fun s env => `(t1, env') <- encode1 s env ; `(t2, env'') <- encode2 s env'; Some (mappend t1 t2, env'')).
imports: Fiat.Computation Fiat.Common.DecideableEnsembles Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.ComposeOpt Fiat.Narcissus.Common.Notations Fiat.Narcissus.Formats.Base.FMapFormat Fiat.Narcissus.Formats.Base.LaxTerminalFormat