sig
  type 'a t = ('a, Error.t) Result.t
  val apply : ('-> 'b) t -> 'a t -> 'b t
  val map2 : 'a t -> 'b t -> f:('-> '-> 'c) -> 'c t
  val map3 : 'a t -> 'b t -> 'c t -> f:('-> '-> '-> 'd) -> 'd t
  val both : 'a t -> 'b t -> ('a * 'b) t
  module Applicative_infix :
    sig
      val ( <*> ) : ('-> 'b) t -> 'a t -> 'b t
      val ( <* ) : 'a t -> unit t -> 'a t
      val ( *> ) : unit t -> 'a t -> 'a t
    end
  val ( <*> ) : ('-> 'b) t -> 'a t -> 'b t
  val ( <* ) : 'a t -> unit t -> 'a t
  val ( *> ) : unit t -> 'a t -> 'a t
  val invariant : 'Invariant_intf.inv -> 'a t Invariant_intf.inv
  val ( >>= ) : 'a t -> ('-> 'b t) -> 'b t
  val ( >>| ) : 'a t -> ('-> 'b) -> 'b t
  module Monad_infix :
    sig
      val ( >>= ) : 'a t -> ('-> 'b t) -> 'b t
      val ( >>| ) : 'a t -> ('-> 'b) -> 'b t
    end
  val bind : 'a t -> ('-> 'b t) -> 'b t
  val return : '-> 'a t
  val map : 'a t -> f:('-> 'b) -> 'b t
  val join : 'a t t -> 'a t
  val ignore_m : 'a t -> unit t
  val all : 'a t list -> 'a list t
  val all_ignore : unit t list -> unit t
  val ignore : 'Or_error.t -> unit Or_error.t
  val try_with : ?backtrace:bool -> (unit -> 'a) -> 'Or_error.t
  val try_with_join :
    ?backtrace:bool -> (unit -> 'Or_error.t) -> 'Or_error.t
  val ok_exn : 'Or_error.t -> 'a
  val of_exn : ?backtrace:[ `Get | `This of string ] -> exn -> 'Or_error.t
  val of_exn_result : ('a, exn) Result.t -> 'Or_error.t
  val error :
    ?strict:unit -> string -> '-> ('-> Sexplib.Sexp.t) -> 'Or_error.t
  val error_string : string -> 'Or_error.t
  val errorf : ('a, unit, string, 'Or_error.t) Pervasives.format4 -> 'a
  val tag : 'Or_error.t -> string -> 'Or_error.t
  val tag_arg :
    'Or_error.t -> string -> '-> ('-> Sexplib.Sexp.t) -> 'Or_error.t
  val unimplemented : string -> 'Or_error.t
  val combine_errors : 'Or_error.t list -> 'a list Or_error.t
  val combine_errors_unit : unit Or_error.t list -> unit Or_error.t
  module Stable :
    sig
      module V1 :
        sig
          type 'a t = 'a t
          val map : 'a t -> f:('-> 'b) -> 'b t
          val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
          val sexp_of_t : ('-> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
          val compare : ('-> '-> int) -> 'a t -> 'a t -> int
          val bin_t : 'Bin_prot.Type_class.t -> 'a t Bin_prot.Type_class.t
          val bin_read_t :
            'Bin_prot.Read.reader -> 'a t Bin_prot.Read.reader
          val __bin_read_t__ :
            'Bin_prot.Read.reader -> (int -> 'a t) Bin_prot.Read.reader
          val bin_reader_t :
            'Bin_prot.Type_class.reader -> 'a t Bin_prot.Type_class.reader
          val bin_size_t : 'Bin_prot.Size.sizer -> 'a t Bin_prot.Size.sizer
          val bin_write_t :
            'Bin_prot.Write.writer -> 'a t Bin_prot.Write.writer
          val bin_writer_t :
            'Bin_prot.Type_class.writer -> 'a t Bin_prot.Type_class.writer
        end
      module V2 :
        sig
          type 'a t = 'a t
          val map : 'a t -> f:('-> 'b) -> 'b t
          val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
          val sexp_of_t : ('-> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
          val compare : ('-> '-> int) -> 'a t -> 'a t -> int
          val bin_t : 'Bin_prot.Type_class.t -> 'a t Bin_prot.Type_class.t
          val bin_read_t :
            'Bin_prot.Read.reader -> 'a t Bin_prot.Read.reader
          val __bin_read_t__ :
            'Bin_prot.Read.reader -> (int -> 'a t) Bin_prot.Read.reader
          val bin_reader_t :
            'Bin_prot.Type_class.reader -> 'a t Bin_prot.Type_class.reader
          val bin_size_t : 'Bin_prot.Size.sizer -> 'a t Bin_prot.Size.sizer
          val bin_write_t :
            'Bin_prot.Write.writer -> 'a t Bin_prot.Write.writer
          val bin_writer_t :
            'Bin_prot.Type_class.writer -> 'a t Bin_prot.Type_class.writer
        end
    end
  val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'Or_error.t
  val sexp_of_t : ('-> Sexplib.Sexp.t) -> 'Or_error.t -> Sexplib.Sexp.t
  val compare : ('-> '-> int) -> 'Or_error.t -> 'Or_error.t -> int
  val bin_t : 'Bin_prot.Type_class.t -> 'Or_error.t Bin_prot.Type_class.t
  val bin_read_t :
    'Bin_prot.Read.reader -> 'Or_error.t Bin_prot.Read.reader
  val __bin_read_t__ :
    'Bin_prot.Read.reader -> (int -> 'Or_error.t) Bin_prot.Read.reader
  val bin_reader_t :
    'Bin_prot.Type_class.reader -> 'Or_error.t Bin_prot.Type_class.reader
  val bin_size_t :
    'Bin_prot.Size.sizer -> 'Or_error.t Bin_prot.Size.sizer
  val bin_write_t :
    'Bin_prot.Write.writer -> 'Or_error.t Bin_prot.Write.writer
  val bin_writer_t :
    'Bin_prot.Type_class.writer -> 'Or_error.t Bin_prot.Type_class.writer
end