module type S =sig..end
type elt
type t
val empty : tval is_empty : t -> boolval add : elt -> t -> tval union : t -> t -> tval find_min : t -> eltval remove_min : t -> tval size : t -> intval fold : ('a -> elt -> 'a) -> 'a -> t -> 'a