let
pop_with_key_exn t =
let
(k, v) =
Heap
.pop_exn t.heap
in
Hashtbl
.remove t.tbl k;
(k, v)