let delete_team_for_group_project gnum padd tnum = try
let stus = List.filter (fun s ->
(s.group=gnum) && (student_team s padd = tnum)
) !student_list in
List.iter (fun s -> (remove_people_from_team s padd)) stus;
do_something_group_project (fun p -> H.remove_assoc (get_project_teams p) tnum)
(fun () -> ()) gnum padd;
with Not_found -> ()