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