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