let remove_group ~father ~son =
  let rec iter = function
      [] -> []
    | son2 :: q ->
        if son = son2 then
          q
        else
          son2 :: iter q
  in
  father.group_groups <- iter father.group_groups