let create_team_for_group_project gnum padd tnum spec =
do_something_group_project (fun p ->
try ignore(H.get_assoc p.teams tnum)
with _ -> H.update_assoc p.teams tnum (make_team ~spec:spec tnum))
(fun () -> ()) gnum padd