Infix (async_kernel.Async_kernel.Tail.Deferred.Infix)

include Monad_infix

val (>>=) : 'a Async_kernel__Types.Deferred.t -> ('a -> 'b Async_kernel__Types.Deferred.t) -> 'b Async_kernel__Types.Deferred.t

val (>>|) : 'a Async_kernel__Types.Deferred.t -> ('a -> 'b) -> 'b Async_kernel__Types.Deferred.t

val (>>>) : 'a t -> ('a -> unit) -> unit

val ppx_both : 'a t -> 'b t -> ('a * 'b) t