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