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