type 'callback t
= ('callback, Core_kernel__.Std_internal.read) Core_kernel__Bus.bus
include sig ... end
val sexp_of_t : ('callback ‑> Base.Sexp.t) ‑> 'callback t ‑> Base.Sexp.t
include Core_kernel__.Import.Invariant.S1 with type a t := a t
type 'a t
val invariant : 'a Base__.Invariant_intf.inv ‑> 'a t Base__.Invariant_intf.inv