let update_group_project_team_name gnum pnum tnum n =
do_something_group_project (fun p -> try
let team = H.get_assoc p.teams tnum in
H.update_assoc p.teams tnum (set_team_name team n)
with _ -> ()) (fun () -> ()) gnum pnum