module type VERTEX = sig .. end
sig
end
Sig.COMPARABLE
type t
include Sig.COMPARABLE
type label
val create : label -> t
label -> t
val label : t -> label
t -> label