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