Parameter `S2_to_S3.1-X`

include Base__.Applicative_intf.For_let_syntax2

type ('a, 'e) t

val return : 'a -> ('a, _) t
val map : ('a, 'e) t -> f:('a -> 'b) -> ('b, 'e) t
val both : ('a, 'e) t -> ('b, 'e) t -> ('a * 'b, 'e) t

include Base__.Applicative_intf.Applicative_infix2 with type ('a, 'e) t := ('a, 'e) t

type ('a, 'e) t

val (<*>) : ('a -> 'b, 'e) t -> ('a, 'e) t -> ('b, 'e) t
val (<*) : ('a, 'e) t -> (unit, 'e) t -> ('a, 'e) t
val (*>) : (unit, 'e) t -> ('a, 'e) t -> ('a, 'e) t
val (>>|) : ('a, 'e) t -> ('a -> 'b) -> ('b, 'e) t

val apply : ('a -> 'b, 'e) t -> ('a, 'e) t -> ('b, 'e) t
val map2 : ('a, 'e) t -> ('b, 'e) t -> f:('a -> 'b -> 'c) -> ('c, 'e) t
val map3 : ('a, 'e) t -> ('b, 'e) t -> ('c, 'e) t -> f:('a -> 'b -> 'c -> 'd) -> ('d, 'e) t
val all : ('a, 'e) t list -> ('a list, 'e) t
val all_unit : (unit, 'e) t list -> (unit, 'e) t

module Applicative_infix : Base__.Applicative_intf.Applicative_infix2 with type ('a, 'e) t := ('a, 'e) t