sig
  type t
  exception Negative_index of string
  val empty : unit -> BatBitSet.t
  val create : int -> BatBitSet.t
  val create_full : int -> BatBitSet.t
  val copy : BatBitSet.t -> BatBitSet.t
  val clone : BatBitSet.t -> BatBitSet.t
  val set : BatBitSet.t -> int -> unit
  val unset : BatBitSet.t -> int -> unit
  val put : BatBitSet.t -> bool -> int -> unit
  val toggle : BatBitSet.t -> int -> unit
  val is_set : BatBitSet.t -> int -> bool
  val compare : BatBitSet.t -> BatBitSet.t -> int
  val equals : BatBitSet.t -> BatBitSet.t -> bool
  val count : BatBitSet.t -> int
  val enum : BatBitSet.t -> int BatEnum.t
  val intersect : BatBitSet.t -> BatBitSet.t -> unit
  val unite : BatBitSet.t -> BatBitSet.t -> unit
  val differentiate : BatBitSet.t -> BatBitSet.t -> unit
  val differentiate_sym : BatBitSet.t -> BatBitSet.t -> unit
  val inter : BatBitSet.t -> BatBitSet.t -> BatBitSet.t
  val union : BatBitSet.t -> BatBitSet.t -> BatBitSet.t
  val diff : BatBitSet.t -> BatBitSet.t -> BatBitSet.t
  val sym_diff : BatBitSet.t -> BatBitSet.t -> BatBitSet.t
  val print : 'a BatInnerIO.output -> BatBitSet.t -> unit
end