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