Source file `drop_set.ml`

1
2
3
4
5
include Set.Make (struct
  type t = Drop.t

  let compare x y = compare (Drop.index x) (Drop.index y)
end)