sig
  val reword_error : ('-> 'c) -> ('a, 'b) Topkg.r -> ('a, 'c) Topkg.r
  type msg = [ `Msg of string ]
  val error_msg : string -> ('b, [> Topkg.R.msg ]) Topkg.r
  val error_msgf :
    ('a, Stdlib.Format.formatter, unit, ('b, [> Topkg.R.msg ]) Topkg.r)
    Stdlib.format4 -> 'a
  val reword_error_msg :
    ?replace:bool ->
    (string -> Topkg.R.msg) ->
    ('a, Topkg.R.msg) Topkg.r -> ('a, [> Topkg.R.msg ]) Topkg.r
end