let
top_with_key t =
match
Heap
.top t.heap
with
|
None
->
None
|
Some
(k, v)
->
Some
(k, v)