val sexp_of_t : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> ('permissions -> Ppx_sexp_conv_lib.Sexp.t) -> ('a, 'permissions) t -> Ppx_sexp_conv_lib.Sexp.tinclude Core_kernel.Invariant.S2 with type ('a, 'permissions) t := ('a, 'permissions) t
val invariant : ('a -> unit) -> ('b -> unit) -> ('a, 'permissions) t -> unitval create : unit -> ('a, Core_kernel.read_write) tval wait : ('a, [> Core_kernel.read ]) t -> 'a Async_kernel__Types.Deferred.twait t becomes determined by the next call to broadcast t a.
val broadcast : ('a, [> Core_kernel.write ]) t -> 'a -> unitval has_any_waiters : ('a, _) t -> boolhas_any_waiters t returns true iff there has been a call to wait t since the most recent call to broadcast t.