sig
  val iter :
    Raw_scheduler.T.t ->
    check_access:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                   (unit -> unit) option)
                  Fieldslib.Field.t_with_perm ->
                  Raw_scheduler.T.t -> (unit -> unit) option -> 'a) ->
    jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
           Raw_scheduler.Execution_context.t Job.t Jobs.t
           Core.Std.sexp_opaque)
          Fieldslib.Field.t_with_perm ->
          Raw_scheduler.T.t ->
          Raw_scheduler.Execution_context.t Job.t Jobs.t Core.Std.sexp_opaque ->
          'b) ->
    main_execution_context:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                             Raw_scheduler.Execution_context.t)
                            Fieldslib.Field.t_with_perm ->
                            Raw_scheduler.T.t ->
                            Raw_scheduler.Execution_context.t -> 'c) ->
    current_execution_context:(([< `Read | `Set_and_create ],
                                Raw_scheduler.T.t,
                                Raw_scheduler.Execution_context.t)
                               Fieldslib.Field.t_with_perm ->
                               Raw_scheduler.T.t ->
                               Raw_scheduler.Execution_context.t -> 'd) ->
    max_num_jobs_per_priority_per_cycle:(([< `Read | `Set_and_create ],
                                          Raw_scheduler.T.t, int)
                                         Fieldslib.Field.t_with_perm ->
                                         Raw_scheduler.T.t -> int -> 'e) ->
    uncaught_exn:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                   Core.Std.Error.t option)
                  Fieldslib.Field.t_with_perm ->
                  Raw_scheduler.T.t -> Core.Std.Error.t option -> 'f) ->
    global_kill_index:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                        Kill_index.t)
                       Fieldslib.Field.t_with_perm ->
                       Raw_scheduler.T.t -> Kill_index.t -> 'g) ->
    num_jobs_run:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
                  Fieldslib.Field.t_with_perm ->
                  Raw_scheduler.T.t -> int -> 'h) ->
    cycle_count:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
                 Fieldslib.Field.t_with_perm ->
                 Raw_scheduler.T.t -> int -> 'i) ->
    cycle_start:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                  Core.Std.Time.t)
                 Fieldslib.Field.t_with_perm ->
                 Raw_scheduler.T.t -> Core.Std.Time.t -> 'j) ->
    last_cycle_time:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                      Core.Std.Time.Span.t)
                     Fieldslib.Field.t_with_perm ->
                     Raw_scheduler.T.t -> Core.Std.Time.Span.t -> 'k) ->
    cycle_times:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                  Core.Std.Time.Span.t Raw_scheduler.tail)
                 Fieldslib.Field.t_with_perm ->
                 Raw_scheduler.T.t ->
                 Core.Std.Time.Span.t Raw_scheduler.tail -> 'l) ->
    last_cycle_num_jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                          int)
                         Fieldslib.Field.t_with_perm ->
                         Raw_scheduler.T.t -> int -> 'm) ->
    cycle_num_jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                     int Raw_scheduler.tail)
                    Fieldslib.Field.t_with_perm ->
                    Raw_scheduler.T.t -> int Raw_scheduler.tail -> 'n) ->
    events:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
             Raw_scheduler.Execution_context.t Job.t Events.t)
            Fieldslib.Field.t_with_perm ->
            Raw_scheduler.T.t ->
            Raw_scheduler.Execution_context.t Job.t Events.t -> 'o) ->
    finalizer_jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                     Raw_scheduler.Execution_context.t Job.t
                     Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque)
                    Fieldslib.Field.t_with_perm ->
                    Raw_scheduler.T.t ->
                    Raw_scheduler.Execution_context.t Job.t
                    Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque -> 'p) ->
    thread_safe_finalizer_hook:(([< `Read | `Set_and_create ],
                                 Raw_scheduler.T.t, unit -> unit)
                                Fieldslib.Field.t_with_perm ->
                                Raw_scheduler.T.t -> (unit -> unit) -> 'q) ->
    'q
  val fold :
    Raw_scheduler.T.t ->
    init:'a ->
    check_access:('a ->
                  ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                   (unit -> unit) option)
                  Fieldslib.Field.t_with_perm ->
                  Raw_scheduler.T.t -> (unit -> unit) option -> 'b) ->
    jobs:('b ->
          ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
           Raw_scheduler.Execution_context.t Job.t Jobs.t
           Core.Std.sexp_opaque)
          Fieldslib.Field.t_with_perm ->
          Raw_scheduler.T.t ->
          Raw_scheduler.Execution_context.t Job.t Jobs.t Core.Std.sexp_opaque ->
          'c) ->
    main_execution_context:('c ->
                            ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                             Raw_scheduler.Execution_context.t)
                            Fieldslib.Field.t_with_perm ->
                            Raw_scheduler.T.t ->
                            Raw_scheduler.Execution_context.t -> 'd) ->
    current_execution_context:('d ->
                               ([< `Read | `Set_and_create ],
                                Raw_scheduler.T.t,
                                Raw_scheduler.Execution_context.t)
                               Fieldslib.Field.t_with_perm ->
                               Raw_scheduler.T.t ->
                               Raw_scheduler.Execution_context.t -> 'e) ->
    max_num_jobs_per_priority_per_cycle:('e ->
                                         ([< `Read | `Set_and_create ],
                                          Raw_scheduler.T.t, int)
                                         Fieldslib.Field.t_with_perm ->
                                         Raw_scheduler.T.t -> int -> 'f) ->
    uncaught_exn:('f ->
                  ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                   Core.Std.Error.t option)
                  Fieldslib.Field.t_with_perm ->
                  Raw_scheduler.T.t -> Core.Std.Error.t option -> 'g) ->
    global_kill_index:('g ->
                       ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                        Kill_index.t)
                       Fieldslib.Field.t_with_perm ->
                       Raw_scheduler.T.t -> Kill_index.t -> 'h) ->
    num_jobs_run:('h ->
                  ([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
                  Fieldslib.Field.t_with_perm ->
                  Raw_scheduler.T.t -> int -> 'i) ->
    cycle_count:('i ->
                 ([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
                 Fieldslib.Field.t_with_perm ->
                 Raw_scheduler.T.t -> int -> 'j) ->
    cycle_start:('j ->
                 ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                  Core.Std.Time.t)
                 Fieldslib.Field.t_with_perm ->
                 Raw_scheduler.T.t -> Core.Std.Time.t -> 'k) ->
    last_cycle_time:('k ->
                     ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                      Core.Std.Time.Span.t)
                     Fieldslib.Field.t_with_perm ->
                     Raw_scheduler.T.t -> Core.Std.Time.Span.t -> 'l) ->
    cycle_times:('l ->
                 ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                  Core.Std.Time.Span.t Raw_scheduler.tail)
                 Fieldslib.Field.t_with_perm ->
                 Raw_scheduler.T.t ->
                 Core.Std.Time.Span.t Raw_scheduler.tail -> 'm) ->
    last_cycle_num_jobs:('m ->
                         ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                          int)
                         Fieldslib.Field.t_with_perm ->
                         Raw_scheduler.T.t -> int -> 'n) ->
    cycle_num_jobs:('n ->
                    ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                     int Raw_scheduler.tail)
                    Fieldslib.Field.t_with_perm ->
                    Raw_scheduler.T.t -> int Raw_scheduler.tail -> 'o) ->
    events:('o ->
            ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
             Raw_scheduler.Execution_context.t Job.t Events.t)
            Fieldslib.Field.t_with_perm ->
            Raw_scheduler.T.t ->
            Raw_scheduler.Execution_context.t Job.t Events.t -> 'p) ->
    finalizer_jobs:('p ->
                    ([< `Read | `Set_and_create ], Raw_scheduler.T.t,
                     Raw_scheduler.Execution_context.t Job.t
                     Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque)
                    Fieldslib.Field.t_with_perm ->
                    Raw_scheduler.T.t ->
                    Raw_scheduler.Execution_context.t Job.t
                    Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque -> 'q) ->
    thread_safe_finalizer_hook:('q ->
                                ([< `Read | `Set_and_create ],
                                 Raw_scheduler.T.t, unit -> unit)
                                Fieldslib.Field.t_with_perm ->
                                Raw_scheduler.T.t -> (unit -> unit) -> 'r) ->
    'r
end