let push_exn t ~key ~data =
    match push t ~key ~data with
    | `Ok -> ()
    
    | `Key_already_present -> failwith "Hash_heap: key already present"