sig   type t   val empty : t   val is_empty : t -> bool   val mem : id -> t -> bool   val add : id -> t -> t   val singleton : id -> t   val remove : id -> t -> t   val union : t -> t -> t   val inter : t -> t -> t   val diff : t -> t -> t   val compare : t -> t -> int   val equal : t -> t -> bool   val subset : t -> t -> bool   val iter : (id -> unit) -> t -> unit   val fold : (id -> '-> 'a) -> t -> '-> 'a   val for_all : (id -> bool) -> t -> bool   val exists : (id -> bool) -> t -> bool   val filter : (id -> bool) -> t -> t   val partition : (id -> bool) -> t -> t * t   val cardinal : t -> int   val elements : t -> id list   val min_elt : t -> id   val max_elt : t -> id   val choose : t -> id   val split : id -> t -> t * bool * t   val find : id -> t -> id   val of_list : id list -> t   val pp : ?sep:unit B0.Fmt.t -> B0.Unit.id B0.Fmt.t -> B0.Unit.t B0.Fmt.t end