functor (E : PARTIAL_ORD) ->
sig
type elt = E.t
type t
val empty : t
val is_empty : t -> bool
exception Empty
val merge : t -> t -> t
val insert : elt -> t -> t
val add : t -> elt -> t
val filter : (elt -> bool) -> t -> t
val find_min : t -> elt option
val find_min_exn : t -> elt
val take : t -> (t * elt) option
val take_exn : t -> t * elt
val iter : (elt -> unit) -> t -> unit
val fold : ('a -> elt -> 'a) -> 'a -> t -> 'a
val size : t -> int
val to_list : t -> elt list
val add_list : t -> elt list -> t
val of_list : elt list -> t
val add_seq : t -> elt sequence -> t
val of_seq : elt sequence -> t
val to_seq : t -> elt sequence
val add_klist : t -> elt klist -> t
val of_klist : elt klist -> t
val to_klist : t -> elt klist
val add_gen : t -> elt gen -> t
val of_gen : elt gen -> t
val to_gen : t -> elt gen
val to_tree : t -> elt ktree
val print : ?sep:string -> elt printer -> t printer
end