let merge_top_groups t1 t2 =
  let t1 = copy_group t1 in
  let t2 = copy_group t2 in
  List.iter (insert_group t1) t2.group_groups;
  t1.group_items <- merge_items t1.group_items t2.group_items;
  t1