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 : ('a -> int -> 'a) -> '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