sig
  type ('a, 'b) t = ('a, 'b) Result.t = Ok of '| Error of 'b
  type ('a, 'b) sexpable = ('a, 'b) t
  val sexp_of_t :
    ('-> Sexplib.Sexp.t) ->
    ('-> Sexplib.Sexp.t) -> ('a, 'b) sexpable -> Sexplib.Sexp.t
  val t_of_sexp :
    (Sexplib.Sexp.t -> 'a) ->
    (Sexplib.Sexp.t -> 'b) -> Sexplib.Sexp.t -> ('a, 'b) sexpable
  type ('a, 'b) binable = ('a, 'b) t
  val bin_size_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Size.sizer2
  val bin_write_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Map_to_safe.writer2
  val bin_write_t_ :
    ('a, 'b, ('a, 'b) binable) Bin_prot.Unsafe_write_c.writer2
  val bin_read_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Map_to_safe.reader2
  val bin_read_t_ : ('a, 'b, ('a, 'b) binable) Bin_prot.Unsafe_read_c.reader2
  val bin_read_t__ :
    ('a, 'b, int -> ('a, 'b) binable) Bin_prot.Unsafe_read_c.reader2
  val bin_writer_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.writer
  val bin_reader_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.reader
  val bin_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.t
  type ('a, 'b) monad = ('a, 'b) t
  val ( >>= ) : ('a, 'b) monad -> ('-> ('c, 'b) monad) -> ('c, 'b) monad
  val ( >>| ) : ('a, 'b) monad -> ('-> 'c) -> ('c, 'b) monad
  module Monad_infix :
    sig
      type ('a, 'b) monad = ('a, 'b) monad
      val ( >>= ) :
        ('a, 'b) monad -> ('-> ('c, 'b) monad) -> ('c, 'b) monad
      val ( >>| ) : ('a, 'b) monad -> ('-> 'c) -> ('c, 'b) monad
    end
  val bind : ('a, 'b) monad -> ('-> ('c, 'b) monad) -> ('c, 'b) monad
  val return : '-> ('a, 'b) monad
  val join : (('a, 'b) monad, 'b) monad -> ('a, 'b) monad
  val ignore : ('a, 'b) monad -> (unit, 'b) monad
  val fail : '-> ('b, 'a) 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 : ('a, 'b) t -> 'a option
  val error : ('a, 'b) t -> 'b option
  val of_option : 'a option -> error:'-> ('a, 'b) t
  val iter : ('a, 'b) t -> f:('-> unit) -> unit
  val map : ('a, 'b) t -> f:('-> 'c) -> ('c, 'b) t
  val map_error : ('a, 'b) t -> f:('-> 'c) -> ('a, 'c) t
  val combine :
    ('a, 'b) t ->
    ('c, 'b) t -> ok:('-> '-> 'd) -> err:('-> '-> 'b) -> ('d, 'b) t
  val call : f:('-> unit, 'b) t -> '-> unit
  val apply : f:('-> 'b, 'c) t -> '-> ('b, 'c) t
  val ok_fst : ('a, 'b) t -> [ `Fst of '| `Snd of 'b ]
  val ok_if_true : bool -> error:'-> (unit, 'a) t
  val try_with : (unit -> 'a) -> ('a, exn) t
  val ok_exn : ?fail:exn -> ('a, 'b) t -> 'a
  val raise_error : ('a, exn) t -> 'a
  val ok_unit : (unit, 'a) t
  module Export :
    sig type ('a, 'b) _result = ('a, 'b) t = Ok of '| Error of 'end
end