X (base.Base.Applicative.S3_to

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

val return : 'a -> ('a, 'b, 'c) t

val map : ('a, 'd, 'e) t -> f:('a -> 'b) -> ('b, 'd, 'e) t

val both : ('a, 'd, 'e) t -> ('b, 'd, 'e) t -> ('a * 'b, 'd, 'e) t

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

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

val (*>) : (unit, 'd, 'e) t -> ('a, 'd, 'e) t -> ('a, 'd, 'e) t

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

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

val map2 : 
  ('a, 'd, 'e) t ->
  ('b, 'd, 'e) t ->
  f:('a -> 'b -> 'c) ->
  ('c, 'd, 'e) t

val map3 : 
  ('a, 'd, 'e) t ->
  ('b, 'd, 'e) t ->
  ('c, 'd, 'e) t ->
  f:('a -> 'b -> 'c -> 'result) ->
  ('result, '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

module Applicative_infix : sig ... end