X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2Fdiscrimination_tree.mli;h=63464e2ccf77b01b10bf11b3ff00debd098fd308;hb=8402a4a856b031916b1e2b1354b863933763fa58;hp=61631f47869059e0fc0830498d399d83b3b9afab;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/cic/discrimination_tree.mli b/helm/software/components/cic/discrimination_tree.mli
index 61631f478..63464e2cc 100644
--- a/helm/software/components/cic/discrimination_tree.mli
+++ b/helm/software/components/cic/discrimination_tree.mli
@@ -27,17 +27,14 @@ module DiscriminationTreeIndexing :
   functor (A : Set.S) ->
     sig
 
-      val arities : (Cic.term, int) Hashtbl.t 
-
-      type key = Cic.term
       type t 
 
       val empty : t
-      val index : t -> key -> A.elt -> t
-      val remove_index : t -> key -> A.elt -> t
-      val in_index : t -> key -> (A.elt -> bool) -> bool
-      val retrieve_generalizations : t -> key -> A.t
-      val retrieve_unifiables : t -> key -> A.t
+      val index : t -> Cic.term -> A.elt -> t
+      val remove_index : t -> Cic.term -> A.elt -> t
+      val in_index : t -> Cic.term -> (A.elt -> bool) -> bool
+      val retrieve_generalizations : t -> Cic.term -> A.t
+      val retrieve_unifiables : t -> Cic.term -> A.t
     end