sig
  type t
  val default_name : Thread_pool.Helper_thread.t -> string
  val default_priority :
    Thread_pool.Helper_thread.t -> Thread_pool.Priority.t
end