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"