sig
  type t
  val create : int -> Bitvector.t
  val mem : Bitvector.t -> int -> bool
  val set : Bitvector.t -> int -> unit
  val clear : Bitvector.t -> int -> unit
  val once : Bitvector.t -> int -> bool
  val set_range : Bitvector.t -> int -> int -> unit
  val is_empty : Bitvector.t -> bool
  val iter_true : (int -> unit) -> Bitvector.t -> unit
  val fold_true : ('-> int -> 'a) -> '-> Bitvector.t -> 'a
  val find_next_true : Bitvector.t -> int -> int
  val pretty : Format.formatter -> Bitvector.t -> unit
  val pp_bits : Format.formatter -> int -> unit
end