let remove_people_from_team (stu:student) (padd:paddress) = 
  let tims = stu.teams in 
  let tnum = student_team stu padd in 
    decrease_team_gpt stu.group padd tnum;
    H.remove_assoc tims padd