functor (X : Set.OrderedType) ->
sig
type t
type elt = X.t
module Leaf :
sig
type t
type elt = elt
val empty : t
val add : t -> Index_intf.term -> elt -> t
val remove : t -> Index_intf.term -> elt -> t
val is_empty : t -> bool
val iter : t -> (Index_intf.term -> elt -> unit) -> unit
val fold : t -> 'a -> ('a -> Index_intf.term -> elt -> 'a) -> 'a
val size : t -> int
val fold_unify :
?subst:Index_intf.subst ->
t Scoped.t ->
Index_intf.term Scoped.t ->
(Index_intf.term * elt * Index_intf.subst) Sequence.t
val fold_match :
?subst:Index_intf.subst ->
t Scoped.t ->
Index_intf.term Scoped.t ->
(Index_intf.term * elt * Index_intf.subst) Sequence.t
val fold_matched :
?subst:Index_intf.subst ->
t Scoped.t ->
Index_intf.term Scoped.t ->
(Index_intf.term * elt * Index_intf.subst) Sequence.t
end
val name : string
val empty : unit -> t
val is_empty : t -> bool
val size : t -> int
val add : t -> Index_intf.term -> elt -> t
val add_seq : t -> (Index_intf.term * elt) Sequence.t -> t
val add_list : t -> (Index_intf.term * elt) list -> t
val remove : t -> Index_intf.term -> elt -> t
val iter : t -> (Index_intf.term -> elt -> unit) -> unit
val fold : t -> ('a -> Index_intf.term -> elt -> 'a) -> 'a -> 'a
val retrieve_unifiables :
?subst:Index_intf.subst ->
t Scoped.t ->
Index_intf.term Scoped.t ->
(Index_intf.term * elt * Index_intf.subst) Sequence.t
val retrieve_generalizations :
?subst:Index_intf.subst ->
t Scoped.t ->
Index_intf.term Scoped.t ->
(Index_intf.term * elt * Index_intf.subst) Sequence.t
val retrieve_specializations :
?subst:Index_intf.subst ->
t Scoped.t ->
Index_intf.term Scoped.t ->
(Index_intf.term * elt * Index_intf.subst) Sequence.t
val to_dot : elt CCFormat.printer -> t CCFormat.printer
end