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 -> ()