fact: Fixpoint show_exact (s : string) : showM := match s with | EmptyString => empty | String a s' => cat (inject a) (show_exact s') end.
imports: Coq.Strings.String Coq.Program.Wf Coq.PArith.BinPos Coq.ZArith.ZArith ExtLib.Structures.Monoid ExtLib.Structures.Reducible ExtLib.Programming.Injection ExtLib.Data.Char ExtLib.Data.String ExtLib.Data.Fun ExtLib.Core.RelDec