Seq.Heap
type 'a t
val create : compare:('a -> 'a -> int) -> 'a t
val add : 'a t -> 'a -> 'a t
val remove_min : 'a t -> ('a * 'a t) option