fact: Definition sequence_Format {S : Type} (format1 format2 : FormatM S T) := (fun s => compose _ (format1 s) (format2 s))%comp.
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