mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-09 12:45:48 -05:00
14 lines
273 B
OCaml
14 lines
273 B
OCaml
module type OrderedType = sig
|
|
type t
|
|
val compare : t -> t -> int
|
|
end
|
|
|
|
module Make(T : OrderedType) : sig
|
|
type t
|
|
exception Unsat
|
|
val empty : t
|
|
val find : t -> T.t -> T.t
|
|
val union : t -> T.t -> T.t -> t
|
|
val forbid : t -> T.t -> T.t -> t
|
|
end
|
|
|