sig
  type ('ok, 'err) t =
    ('ok, 'err) Core_kernel.Result.t =
      Ok of 'ok
    | Error of 'err
  val ( >>= ) : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
  val ( >>| ) : ('a, 'd) t -> ('a -> 'b) -> ('b, 'd) t
  module Monad_infix :
    sig
      val ( >>= ) : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
      val ( >>| ) : ('a, 'd) t -> ('a -> 'b) -> ('b, 'd) t
    end
  val bind : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
  val return : 'a -> ('a, 'b) t
  val join : (('a, 'd) t, 'd) t -> ('a, 'd) t
  val ignore : ('a, 'd) t -> (unit, 'd) t
  val all : ('a, 'd) t list -> ('a list, 'd) t
  val all_ignore : (unit, 'd) t list -> (unit, 'd) t
  val fail : 'err -> ('a, 'err) t
  val failf : ('a, unit, string, ('b, string) t) format4 -> 'a
  val is_ok : ('a, 'b) t -> bool
  val is_error : ('a, 'b) t -> bool
  val ok : ('ok, 'a) t -> 'ok option
  val error : ('a, 'err) t -> 'err option
  val of_option : 'ok option -> error:'err -> ('ok, 'err) t
  val iter : ('ok, 'a) t -> f:('ok -> unit) -> unit
  val iter_error : ('a, 'err) t -> f:('err -> unit) -> unit
  val map : ('ok, 'err) t -> f:('ok -> 'c) -> ('c, 'err) t
  val map_error : ('ok, 'err) t -> f:('err -> 'c) -> ('ok, 'c) t
  val combine :
    ('ok1, 'err) t ->
    ('ok2, 'err) t ->
    ok:('ok1 -> 'ok2 -> 'ok3) -> err:('err -> 'err -> 'err) -> ('ok3, 'err) t
  val call : f:('a -> unit, 'b) t -> 'a -> unit
  val apply : f:('a -> 'b, 'err) t -> 'a -> ('b, 'err) t
  val ok_fst : ('ok, 'err) t -> [ `Fst of 'ok | `Snd of 'err ]
  val ok_if_true : bool -> error:'err -> (unit, 'err) t
  val try_with : (unit -> 'a) -> ('a, exn) t
  val ok_exn : ('ok, exn) t -> 'ok
  val ok_or_failwith : ('ok, string) t -> 'ok
  val ok_unit : (unit, 'a) t
  module Export :
    sig
      type ('ok, 'err) _result = ('ok, 'err) t = Ok of 'ok | Error of 'err
      val is_ok : ('a, 'b) t -> bool
      val is_error : ('a, 'b) t -> bool
    end
  module Stable :
    sig
      module V1 :
        sig
          type ('a, 'b) t = ('a, 'b) t
          val compare :
            ('a -> 'a -> int) ->
            ('b -> 'b -> int) -> ('a, 'b) t -> ('a, 'b) t -> int
          val bin_t :
            'a Bin_prot.Type_class.t ->
            'b Bin_prot.Type_class.t -> ('a, 'b) t Bin_prot.Type_class.t
          val bin_read_t :
            'a Bin_prot.Read.reader ->
            'b Bin_prot.Read.reader -> ('a, 'b) t Bin_prot.Read.reader
          val __bin_read_t__ :
            'a Bin_prot.Read.reader ->
            'b Bin_prot.Read.reader ->
            (int -> ('a, 'b) t) Bin_prot.Read.reader
          val bin_reader_t :
            'a Bin_prot.Type_class.reader ->
            'b Bin_prot.Type_class.reader ->
            ('a, 'b) t Bin_prot.Type_class.reader
          val bin_size_t :
            'a Bin_prot.Size.sizer ->
            'b Bin_prot.Size.sizer -> ('a, 'b) t Bin_prot.Size.sizer
          val bin_write_t :
            'a Bin_prot.Write.writer ->
            'b Bin_prot.Write.writer -> ('a, 'b) t Bin_prot.Write.writer
          val bin_writer_t :
            'a Bin_prot.Type_class.writer ->
            'b Bin_prot.Type_class.writer ->
            ('a, 'b) t Bin_prot.Type_class.writer
          val t_of_sexp :
            (Sexplib.Sexp.t -> 'a) ->
            (Sexplib.Sexp.t -> 'b) -> Sexplib.Sexp.t -> ('a, 'b) t
          val sexp_of_t :
            ('a -> Sexplib.Sexp.t) ->
            ('b -> Sexplib.Sexp.t) -> ('a, 'b) t -> Sexplib.Sexp.t
        end
      module V1_stable_unit_test :
        sig
          type t = Core_kernel.Result.Stable.V1_stable_unit_test.t
          val equal : t -> t -> bool
          val tests : (t * string * string) list
          val bin_t : t Bin_prot.Type_class.t
          val bin_read_t : t Bin_prot.Read.reader
          val __bin_read_t__ : (int -> t) Bin_prot.Read.reader
          val bin_reader_t : t Bin_prot.Type_class.reader
          val bin_size_t : t Bin_prot.Size.sizer
          val bin_write_t : t Bin_prot.Write.writer
          val bin_writer_t : t Bin_prot.Type_class.writer
          val t_of_sexp : Sexplib.Sexp.t -> t
          val sexp_of_t : t -> Sexplib.Sexp.t
        end
    end
  val compare :
    ('ok -> 'ok -> int) ->
    ('err -> 'err -> int) -> ('ok, 'err) t -> ('ok, 'err) t -> int
  val t_of_sexp :
    (Sexplib.Sexp.t -> 'ok) ->
    (Sexplib.Sexp.t -> 'err) -> Sexplib.Sexp.t -> ('ok, 'err) t
  val sexp_of_t :
    ('ok -> Sexplib.Sexp.t) ->
    ('err -> Sexplib.Sexp.t) -> ('ok, 'err) t -> Sexplib.Sexp.t
  val bin_t :
    'ok Bin_prot.Type_class.t ->
    'err Bin_prot.Type_class.t -> ('ok, 'err) t Bin_prot.Type_class.t
  val bin_read_t :
    'ok Bin_prot.Read.reader ->
    'err Bin_prot.Read.reader -> ('ok, 'err) t Bin_prot.Read.reader
  val __bin_read_t__ :
    'ok Bin_prot.Read.reader ->
    'err Bin_prot.Read.reader -> (int -> ('ok, 'err) t) Bin_prot.Read.reader
  val bin_reader_t :
    'ok Bin_prot.Type_class.reader ->
    'err Bin_prot.Type_class.reader ->
    ('ok, 'err) t Bin_prot.Type_class.reader
  val bin_size_t :
    'ok Bin_prot.Size.sizer ->
    'err Bin_prot.Size.sizer -> ('ok, 'err) t Bin_prot.Size.sizer
  val bin_write_t :
    'ok Bin_prot.Write.writer ->
    'err Bin_prot.Write.writer -> ('ok, 'err) t Bin_prot.Write.writer
  val bin_writer_t :
    'ok Bin_prot.Type_class.writer ->
    'err Bin_prot.Type_class.writer ->
    ('ok, 'err) t Bin_prot.Type_class.writer
  module Ok :
    sig
      type ('a, 'err) t = ('a, 'err) Core.Std.Result.t
      val ( >>= ) : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
      val ( >>| ) : ('a, 'd) t -> ('a -> 'b) -> ('b, 'd) t
      module Monad_infix :
        sig
          val ( >>= ) : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
          val ( >>| ) : ('a, 'd) t -> ('a -> 'b) -> ('b, 'd) t
        end
      val bind : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
      val return : 'a -> ('a, 'b) t
      val map : ('a, 'd) t -> f:('a -> 'b) -> ('b, 'd) t
      val join : (('a, 'd) t, 'd) t -> ('a, 'd) t
      val ignore : ('a, 'd) t -> (unit, 'd) t
      val all : ('a, 'd) t list -> ('a list, 'd) t
      val all_ignore : (unit, 'd) t list -> (unit, 'd) t
    end
  module Error :
    sig
      type ('err, 'a) t = ('a, 'err) Core.Std.Result.t
      val ( >>= ) : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
      val ( >>| ) : ('a, 'd) t -> ('a -> 'b) -> ('b, 'd) t
      module Monad_infix :
        sig
          val ( >>= ) : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
          val ( >>| ) : ('a, 'd) t -> ('a -> 'b) -> ('b, 'd) t
        end
      val bind : ('a, 'd) t -> ('a -> ('b, 'd) t) -> ('b, 'd) t
      val return : 'a -> ('a, 'b) t
      val map : ('a, 'd) t -> f:('a -> 'b) -> ('b, 'd) t
      val join : (('a, 'd) t, 'd) t -> ('a, 'd) t
      val ignore : ('a, 'd) t -> (unit, 'd) t
      val all : ('a, 'd) t list -> ('a list, 'd) t
      val all_ignore : (unit, 'd) t list -> (unit, 'd) t
    end
  module Exn :
    sig
      type 'a t = ('a, exn) Core.Std.Result.t
      val sexp_of_t : ('a -> Core.Std.Sexp.t) -> 'a t -> Core.Std.Sexp.t
      val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
      val ( >>| ) : 'a t -> ('a -> 'b) -> 'b t
      module Monad_infix :
        sig
          val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
          val ( >>| ) : 'a t -> ('a -> 'b) -> 'b t
        end
      val bind : 'a t -> ('a -> 'b t) -> 'b t
      val return : 'a -> 'a t
      val map : 'a t -> f:('a -> 'b) -> 'b t
      val join : 'a t t -> 'a t
      val ignore : 'a t -> unit t
      val all : 'a t list -> 'a list t
      val all_ignore : unit t list -> unit t
      val ok : 'a t -> 'a
    end
end