module SetShiftNode: Set.Make(sig type t = Suffix_tree.Make.node val compare : 'a -> 'a -> intend)
Set.Make
(
sig
type t = Suffix_tree.Make.node
Suffix_tree.Make.node
val compare : 'a -> 'a -> int
'a -> 'a -> int
end
)