sig
  type ('a, 'b) t = Left of '| Right of 'b
  val left : '-> ('a, 'b) Either.t
  val right : '-> ('a, 'b) Either.t
  val is_left : ('a, 'b) Either.t -> bool
  val is_right : ('a, 'b) Either.t -> bool
  val find_left : ('a, 'b) Either.t -> 'a option
  val find_right : ('a, 'b) Either.t -> 'b option
  val map_left : ('a1 -> 'a2) -> ('a1, 'b) Either.t -> ('a2, 'b) Either.t
  val map_right : ('b1 -> 'b2) -> ('a, 'b1) Either.t -> ('a, 'b2) Either.t
  val map :
    left:('a1 -> 'a2) ->
    right:('b1 -> 'b2) -> ('a1, 'b1) Either.t -> ('a2, 'b2) Either.t
  val fold : left:('-> 'c) -> right:('-> 'c) -> ('a, 'b) Either.t -> 'c
  val iter :
    left:('-> unit) -> right:('-> unit) -> ('a, 'b) Either.t -> unit
  val for_all :
    left:('-> bool) -> right:('-> bool) -> ('a, 'b) Either.t -> bool
  val equal :
    left:('-> '-> bool) ->
    right:('-> '-> bool) ->
    ('a, 'b) Either.t -> ('a, 'b) Either.t -> bool
  val compare :
    left:('-> '-> int) ->
    right:('-> '-> int) -> ('a, 'b) Either.t -> ('a, 'b) Either.t -> int
end