module Raw_ivar: sig .. end
type 'a t
type 'a ivar = 'a t
include Invariant.S1
val create : unit -> 'a t
val create_full : 'a -> 'a t
val peek : 'a t -> 'a option
val is_empty : 'a t -> bool
val is_full : 'a t -> bool
val equal : 'a t -> 'a t -> bool
val connect : bind_result:'a t -> bind_rhs:'a t -> unit
val fill : 'a t -> 'a -> unit
val install_removable_handler : 'a t -> 'a Raw_handler.t -> Unregister.t
val upon : 'a t -> ('a -> unit) -> unit
val upon' : 'a t -> ('a -> unit) -> Unregister.t
val debug_space_leaks : int option Pervasives.ref
val indir : 'a t -> 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t