module WSet: Set.Make(sigtype t = string * string * string * float val compare : 'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'd -> intend)
Set.Make
(
sig
type t = string * string * string * float
string * string * string * float
val compare : 'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'd -> int
'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'd -> int
end
)