let add_edge t v1 v2 =
let size = Array.length t.vertexes in
if 0 <= v1 && v1 < size &&
0 <= v2 && v2 < size then
begin
let _, edges = t.vertexes.(v1) in
edges := SetInt.add v2 !edges
end
else
invalid_arg "add_edge"