sig
  module Spawn :
    sig
      type stdo = [ `File of B0_std.Fpath.t | `Tee of B0_std.Fpath.t | `Ui ]
      type success_exits = int list
      type t
      val env : B00.Op.Spawn.t -> B0_std.Os.Env.assignments
      val relevant_env : B00.Op.Spawn.t -> B0_std.Os.Env.assignments
      val cwd : B00.Op.Spawn.t -> B0_std.Fpath.t
      val stdin : B00.Op.Spawn.t -> B0_std.Fpath.t option
      val stdout : B00.Op.Spawn.t -> B00.Op.Spawn.stdo
      val stderr : B00.Op.Spawn.t -> B00.Op.Spawn.stdo
      val success_exits : B00.Op.Spawn.t -> B00.Op.Spawn.success_exits
      val tool : B00.Op.Spawn.t -> B0_std.Cmd.tool
      val args : B00.Op.Spawn.t -> B0_std.Cmd.t
      val stdo_ui : B00.Op.Spawn.t -> (string, string) Stdlib.result option
      val set_stdo_ui :
        B00.Op.Spawn.t -> (string, string) Stdlib.result option -> unit
      val result :
        B00.Op.Spawn.t -> (B0_std.Os.Cmd.status, string) Stdlib.result
      val set_result :
        B00.Op.Spawn.t ->
        (B0_std.Os.Cmd.status, string) Stdlib.result -> unit
      val pp_success_exits : int list B0_std.Fmt.t
      val pp_cmd : B00.Op.Spawn.t B0_std.Fmt.t
      val pp_stdo_ui : elide:bool -> B00.Op.Spawn.t B0_std.Fmt.t
      val pp_result :
        (B0_std.Os.Cmd.status, string) Stdlib.result B0_std.Fmt.t
      val pp : B00.Op.Spawn.t B0_std.Fmt.t
    end
  module Read :
    sig
      type t
      val file : B00.Op.Read.t -> B0_std.Fpath.t
      val result : B00.Op.Read.t -> (string, string) Stdlib.result
      val set_result :
        B00.Op.Read.t -> (string, string) Stdlib.result -> unit
      val pp_result : (string, string) Stdlib.result B0_std.Fmt.t
      val pp : B00.Op.Read.t B0_std.Fmt.t
    end
  module Write :
    sig
      type t
      val salt : B00.Op.Write.t -> string
      val mode : B00.Op.Write.t -> int
      val file : B00.Op.Write.t -> B0_std.Fpath.t
      val data : B00.Op.Write.t -> unit -> (string, string) Stdlib.result
      val result : B00.Op.Write.t -> (unit, string) Stdlib.result
      val set_result : B00.Op.Write.t -> (unit, string) Stdlib.result -> unit
      val pp_result : (unit, string) Stdlib.result B0_std.Fmt.t
      val pp : B00.Op.Write.t B0_std.Fmt.t
    end
  module Mkdir :
    sig
      type t
      val dir : B00.Op.Mkdir.t -> B0_std.Fpath.t
      val result : B00.Op.Mkdir.t -> (unit, string) Stdlib.result
      val set_result : B00.Op.Mkdir.t -> (unit, string) Stdlib.result -> unit
      val pp_result : (unit, string) Stdlib.result B0_std.Fmt.t
      val pp : B00.Op.Mkdir.t B0_std.Fmt.t
    end
  type kind =
      Spawn of B00.Op.Spawn.t
    | Read of B00.Op.Read.t
    | Write of B00.Op.Write.t
    | Mkdir of B00.Op.Mkdir.t
    | Wait_files
  val kind_name : B00.Op.kind -> string
  type status = Waiting | Executed | Cached | Failed | Aborted
  val pp_status : B00.Op.status B0_std.Fmt.t
  type id = int
  type t
  val id : B00.Op.t -> B00.Op.id
  val creation_time : B00.Op.t -> B0_std.Time.span
  val exec_start_time : B00.Op.t -> B0_std.Time.span
  val exec_end_time : B00.Op.t -> B0_std.Time.span
  val exec_duration : B00.Op.t -> B0_std.Time.span
  val status : B00.Op.t -> B00.Op.status
  val reads : B00.Op.t -> B0_std.Fpath.t list
  val writes : B00.Op.t -> B0_std.Fpath.t list
  val did_not_write : B00.Op.t -> B0_std.Fpath.t list
  val hash : B00.Op.t -> B0_std.Hash.t
  val kind : B00.Op.t -> B00.Op.kind
  val get_spawn : B00.Op.t -> B00.Op.Spawn.t
  val get_read : B00.Op.t -> B00.Op.Read.t
  val get_write : B00.Op.t -> B00.Op.Write.t
  val get_mkdir : B00.Op.t -> B00.Op.Mkdir.t
  val equal : B00.Op.t -> B00.Op.t -> bool
  val compare : B00.Op.t -> B00.Op.t -> int
  val pp : B00.Op.t B0_std.Fmt.t
  val pp_short : B00.Op.t B0_std.Fmt.t
  val pp_did_not_write : (B00.Op.t * B0_std.Fpath.t list) B0_std.Fmt.t
  val pp_spawn_status_fail : B00.Op.t B0_std.Fmt.t
  val set_exec_start_time : B00.Op.t -> B0_std.Time.span -> unit
  val set_exec_end_time : B00.Op.t -> B0_std.Time.span -> unit
  val set_status : B00.Op.t -> B00.Op.status -> unit
  val set_reads : B00.Op.t -> B0_std.Fpath.t list -> unit
  val set_writes : B00.Op.t -> B0_std.Fpath.t list -> unit
  val set_hash : B00.Op.t -> B0_std.Hash.t -> unit
  val spawn :
    id:B00.Op.id ->
    B0_std.Time.span ->
    reads:B0_std.Fpath.t list ->
    writes:B0_std.Fpath.t list ->
    env:B0_std.Os.Env.assignments ->
    relevant_env:B0_std.Os.Env.assignments ->
    cwd:B0_std.Fpath.t ->
    stdin:B0_std.Fpath.t option ->
    stdout:B00.Op.Spawn.stdo ->
    stderr:B00.Op.Spawn.stdo ->
    success_exits:B00.Op.Spawn.success_exits ->
    B0_std.Cmd.tool -> B0_std.Cmd.t -> B00.Op.t
  val read : id:B00.Op.id -> B0_std.Time.span -> B0_std.Fpath.t -> B00.Op.t
  val write :
    id:B00.Op.id ->
    B0_std.Time.span ->
    salt:string ->
    reads:B0_std.Fpath.t list ->
    mode:int ->
    write:B0_std.Fpath.t ->
    (unit -> (string, string) Stdlib.result) -> B00.Op.t
  val mkdir : id:B00.Op.id -> B0_std.Time.span -> B0_std.Fpath.t -> B00.Op.t
  val wait_files :
    id:B00.Op.id -> B0_std.Time.span -> B0_std.Fpath.t list -> B00.Op.t
  module Set :
    sig
      type t
      val empty : t
      val is_empty : t -> bool
      val mem : t -> t -> bool
      val add : t -> t -> t
      val singleton : t -> t
      val remove : t -> t -> t
      val union : t -> t -> t
      val inter : t -> t -> t
      val diff : t -> t -> t
      val compare : t -> t -> int
      val equal : t -> t -> bool
      val subset : t -> t -> bool
      val iter : (t -> unit) -> t -> unit
      val map : (t -> t) -> t -> t
      val fold : (t -> '-> 'a) -> t -> '-> 'a
      val for_all : (t -> bool) -> t -> bool
      val exists : (t -> bool) -> t -> bool
      val filter : (t -> bool) -> t -> t
      val partition : (t -> bool) -> t -> t * t
      val cardinal : t -> int
      val elements : t -> t list
      val min_elt : t -> t
      val min_elt_opt : t -> t option
      val max_elt : t -> t
      val max_elt_opt : t -> t option
      val choose : t -> t
      val choose_opt : t -> t option
      val split : t -> t -> t * bool * t
      val find : t -> t -> t
      val find_opt : t -> t -> t option
      val find_first : (t -> bool) -> t -> t
      val find_first_opt : (t -> bool) -> t -> t option
      val find_last : (t -> bool) -> t -> t
      val find_last_opt : (t -> bool) -> t -> t option
      val of_list : t list -> t
      val to_seq_from : t -> t -> t Seq.t
      val to_seq : t -> t Seq.t
      val add_seq : t Seq.t -> t -> t
      val of_seq : t Seq.t -> t
    end
  module Map :
    sig
      type +'a t
      val empty : 'a t
      val is_empty : 'a t -> bool
      val mem : t -> 'a t -> bool
      val add : t -> '-> 'a t -> 'a t
      val update : t -> ('a option -> 'a option) -> 'a t -> 'a t
      val singleton : t -> '-> 'a t
      val remove : t -> 'a t -> 'a t
      val merge :
        (t -> 'a option -> 'b option -> 'c option) -> 'a t -> 'b t -> 'c t
      val union : (t -> '-> '-> 'a option) -> 'a t -> 'a t -> 'a t
      val compare : ('-> '-> int) -> 'a t -> 'a t -> int
      val equal : ('-> '-> bool) -> 'a t -> 'a t -> bool
      val iter : (t -> '-> unit) -> 'a t -> unit
      val fold : (t -> '-> '-> 'b) -> 'a t -> '-> 'b
      val for_all : (t -> '-> bool) -> 'a t -> bool
      val exists : (t -> '-> bool) -> 'a t -> bool
      val filter : (t -> '-> bool) -> 'a t -> 'a t
      val partition : (t -> '-> bool) -> 'a t -> 'a t * 'a t
      val cardinal : 'a t -> int
      val bindings : 'a t -> (t * 'a) list
      val min_binding : 'a t -> t * 'a
      val min_binding_opt : 'a t -> (t * 'a) option
      val max_binding : 'a t -> t * 'a
      val max_binding_opt : 'a t -> (t * 'a) option
      val choose : 'a t -> t * 'a
      val choose_opt : 'a t -> (t * 'a) option
      val split : t -> 'a t -> 'a t * 'a option * 'a t
      val find : t -> 'a t -> 'a
      val find_opt : t -> 'a t -> 'a option
      val find_first : (t -> bool) -> 'a t -> t * 'a
      val find_first_opt : (t -> bool) -> 'a t -> (t * 'a) option
      val find_last : (t -> bool) -> 'a t -> t * 'a
      val find_last_opt : (t -> bool) -> 'a t -> (t * 'a) option
      val map : ('-> 'b) -> 'a t -> 'b t
      val mapi : (t -> '-> 'b) -> 'a t -> 'b t
      val to_seq : 'a t -> (t * 'a) Seq.t
      val to_seq_from : t -> 'a t -> (t * 'a) Seq.t
      val add_seq : (t * 'a) Seq.t -> 'a t -> 'a t
      val of_seq : (t * 'a) Seq.t -> 'a t
    end
end