Module Make_using_map2.Applicative_infix

val (<*>) : here:lexing_position -> ('a -> 'b) X.t -> 'a X.t -> 'b X.t
val (<*) : here:lexing_position -> 'a X.t -> Base.unit X.t -> 'a X.t
val (*>) : here:lexing_position -> Base.unit X.t -> 'a X.t -> 'a X.t
val (>>|) : here:lexing_position -> 'a X.t -> ('a -> 'b) -> 'b X.t