type 'a t = 'a Async_kernel.Deferred.tval after : float -> unit tval async : unit t -> unitval (>>=) : 'a t -> ('a -> 'b t) -> 'b tval (>>|) : 'a t -> ('a -> 'b) -> 'b tval (>>=?) :
('a, 'c) Stdlib.result t ->
('a -> ('b, 'c) Stdlib.result t) ->
('b, 'c) Stdlib.result t