sig
  type 'a with_options =
      ?block_group:Block_group.t ->
      ?monitor:Monitor.t -> ?priority:Priority.t -> 'a
  val within' :
    ((unit -> 'a Deferred.t) -> 'a Deferred.t)
    Monitor.Exported_for_scheduler.with_options
  val within :
    ((unit -> unit) -> unit) Monitor.Exported_for_scheduler.with_options
  val within_v :
    ((unit -> 'a) -> 'a option) Monitor.Exported_for_scheduler.with_options
  val schedule' :
    ((unit -> 'a Deferred.t) -> 'a Deferred.t)
    Monitor.Exported_for_scheduler.with_options
  val schedule :
    ((unit -> unit) -> unit) Monitor.Exported_for_scheduler.with_options
  val within_context :
    Execution_context.t -> (unit -> 'a) -> ('a, unit) Core.Std.Result.t
end