(* $Id$ *)
+type path_string
+
+val pp_path_string : path_string -> string
+
module DiscriminationTreeIndexing :
functor (A : Set.S) ->
sig
type t
- val iter : t -> (A.t -> unit) -> unit
+ val iter : t -> (path_string -> A.t -> unit) -> unit
val empty : t
val index : t -> NCic.term -> A.elt -> t