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