let value_of_vertex t v = if 0 <= v && v < Array.length t.vertexes then fst (Array.unsafe_get t.vertexes v) else invalid_arg "get_vertex"