let dot_of_equivalence_class (repr,others,leq,_) =
(if others <> [] then
let eq = String.concat " = " (List.map string_of_cop (repr::others)) in
let dot_of_equivalence_class (repr,others,leq,_) =
(if others <> [] then
let eq = String.concat " = " (List.map string_of_cop (repr::others)) in