Module A.Infix

val (<*) : 'a M.t -> 'b M.t -> 'a M.t
val (*>) : 'a M.t -> 'b M.t -> 'b M.t