Parameter `S3_to_S2.1-X`

type ('a, 'd, 'e) t

include Infix3 with type ('a, 'd, 'e) t := ('a, 'd, 'e) t

type ('a, 'd, 'e) t

val (>>=) : ('a, 'd, 'e) t -> ('a -> ('b, 'd, 'e) t) -> ('b, 'd, 'e) t
val (>>|) : ('a, 'd, 'e) t -> ('a -> 'b) -> ('b, 'd, 'e) t

include Syntax3 with type ('a, 'd, 'e) t := ('a, 'd, 'e) t

type ('a, 'd, 'e) t

module Let_syntax : sig ... end

module Monad_infix : Infix3 with type ('a, 'd, 'e) t := ('a, 'd, 'e) t

val bind : ('a, 'd, 'e) t -> f:('a -> ('b, 'd, 'e) t) -> ('b, 'd, 'e) t
val return : 'a -> ('a, _, _) t
val map : ('a, 'd, 'e) t -> f:('a -> 'b) -> ('b, 'd, 'e) t
val join : (('a, 'd, 'e) t, 'd, 'e) t -> ('a, 'd, 'e) t
val ignore_m : (_, 'd, 'e) t -> (unit, 'd, 'e) t
val all : ('a, 'd, 'e) t list -> ('a list, 'd, 'e) t
val all_unit : (unit, 'd, 'e) t list -> (unit, 'd, 'e) t