let min (heap: heap) : data = if heap.hp_length <= 0 then begin raise Not_found end; heap.hp_heap.(0)