`(E : OrderedPolyType) ->
sig
type 'a t
val create : unit -> 'a t
val length : 'a t -> int
val is_empty : 'a t -> bool
val add : 'a t -> 'a E.t -> unit
val add_iter : 'a t -> (('a E.t -> unit) -> 'x -> unit) -> 'x -> unit
val max_elt : 'a t -> 'a E.t option
val get_max_elt : 'a t -> 'a E.t
val pop_max : 'a t -> 'a E.t option
val remove_max : 'a t -> unit
val clear : 'a t -> unit
val copy : 'a t -> 'a t
val of_array : 'a E.t array -> 'a t
val of_list : 'a E.t list -> 'a t
val of_iter : (('a E.t -> unit) -> 'x -> unit) -> 'x -> 'a t
val iter_unordered : ('a E.t -> unit) -> 'a t -> unit
val fold_unordered : ('acc -> 'a E.t -> 'acc) -> 'acc -> 'a t -> 'acc
end`