fact: Definition format_list_body (A_format_Impl : A -> CacheFormat -> T * CacheFormat) := (fun (acc: T * CacheFormat) x => let (bacc, env) := acc in let (b1, env1) := A_format_Impl x env in (mappend bacc b1, env1)).
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.ComposeOpt Fiat.Narcissus.BaseFormats Fiat.Narcissus.Formats.Base.FixFormat Coq.Lists.List