milestone in basic_2, λδ-2A reconstructed

[helm.git] / helm / software / components / ng_refiner / nDiscriminationTree.mli

diff --git a/helm/software/components/ng_refiner/nDiscriminationTree.mli b/helm/software/components/ng_refiner/nDiscriminationTree.mli
index 1205fe38cd154813d89ae00e11f86e689c1b7a41..ef977667592db10243e51e6320d6a241e4a4c3d3 100644 (file)
--- a/helm/software/components/ng_refiner/nDiscriminationTree.mli
+++ b/helm/software/components/ng_refiner/nDiscriminationTree.mli
@@ -23,23 +23,13 @@
  * 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 = NReference.reference
 
+module TermSet : Set.S with type elt = NCic.term
+module TermListSet : Set.S with type elt = NCic.term list
 
+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