module type FLOW =sig..end
type t
type label
val max_capacity : label -> t
val min_capacity : label -> tval flow : label -> t+ and - on flows.val add : t -> t -> t
val sub : t -> t -> tadd and sub.val zero : tval compare : t -> t -> int