module type WEIGHT = sig .. end
sig
end
type label
type t
val weight : label -> t
label -> t
val compare : t -> t -> int
t -> t -> int
val add : t -> t -> t
t -> t -> t
val zero : t
t
Nonnegative.WEIGHT.add