fact: Fixpoint format_string (xs : string) (ce : CacheFormat) : Comp (B * CacheFormat) := match xs with | EmptyString => ret (mempty, ce) | String x xs' => `(b1, env1) <- format_ascii x ce; `(b2, env2) <- format_string xs' env1; ret (mappend b1 b2, env2) end%comp.
imports: Fiat.Narcissus.Common.Specs Fiat.Narcissus.Formats.AsciiOpt Bedrock.Word Coq.Strings.Ascii Coq.Strings.String