let find_pop_exn t key =
    match find_pop t key with
    | Some el -> el
    | None -> failwith "Hash_heap.find_pop_exn"