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