X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnDiscriminationTree.mli;h=b008277167caf2973879b91618d91b64118711ae;hb=c22f39a5d5afc0ef55beb221e00e2e6703b13d90;hp=1205fe38cd154813d89ae00e11f86e689c1b7a41;hpb=40a37ee02e437c28828ee1d8249d43e847b0b0cd;p=helm.git

diff --git a/helm/software/components/ng_refiner/nDiscriminationTree.mli b/helm/software/components/ng_refiner/nDiscriminationTree.mli
index 1205fe38c..b00827716 100644
--- a/helm/software/components/ng_refiner/nDiscriminationTree.mli
+++ b/helm/software/components/ng_refiner/nDiscriminationTree.mli
@@ -23,23 +23,12 @@
  * http://cs.unibo.it/helm/.
  *)
 
-type path
-
-val string_of_path : path -> string
-
-module DiscriminationTreeIndexing :
-  functor (A : Set.S) ->
-    sig
-
-      type t 
-      val iter : t -> (path -> A.t -> unit) -> unit
-
-      val empty : t
-      val index : t -> NCic.term -> A.elt -> t
-      val remove_index : t -> NCic.term -> A.elt -> t
-      val in_index : t -> NCic.term -> (A.elt -> bool) -> bool
-      val retrieve_generalizations : t -> NCic.term -> A.t
-      val retrieve_unifiables : t -> NCic.term -> A.t
-    end
+module NCicIndexable : Discrimination_tree.Indexable
+with type input = NCic.term and type constant_name = NUri.uri
 
+module TermSet : Set.S with type elt = NCic.term
 
+module DiscriminationTree : Discrimination_tree.DiscriminationTree 
+with type constant_name = NCicIndexable.constant_name 
+and type input = NCicIndexable.input
+and type data = TermSet.elt and type dataset = TermSet.t