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