sig
  val someone_is_listening : ('a Raw_monitor.t_, bool) Fieldslib.Field.t
  val has_seen_error : ('a Raw_monitor.t_, bool) Fieldslib.Field.t
  val errors :
    ('execution_context Raw_monitor.t_, (exn, 'execution_context) Raw_tail.t)
    Fieldslib.Field.t
  val parent :
    ('execution_context Raw_monitor.t_,
     'execution_context Raw_monitor.t_ option)
    Fieldslib.Field.t
  val id : ('a Raw_monitor.t_, int) Fieldslib.Field.t
  val here :
    ('a Raw_monitor.t_, Core.Std.Source_code_position.t option)
    Fieldslib.Field.t
  val name : ('a Raw_monitor.t_, Core.Std.Info.t) Fieldslib.Field.t
end