let introduce pool v =
  let desc = UnionFind.find v in
    desc.rank <- pool.number;
    register pool v