X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2Fdiscrimination_tree.ml;h=0bef85a8cc4e7ea1d89c3f708c025c0c998cb545;hb=b1bad322d0daf6c25f95a82c4349f057a753ab7c;hp=fd234df98980a8c912d66fdb2d59f69044121921;hpb=1592969317fd01e945bd3dacf775ed4f3144e020;p=helm.git

diff --git a/helm/ocaml/cic/discrimination_tree.ml b/helm/ocaml/cic/discrimination_tree.ml
index fd234df98..0bef85a8c 100644
--- a/helm/ocaml/cic/discrimination_tree.ml
+++ b/helm/ocaml/cic/discrimination_tree.ml
@@ -23,7 +23,9 @@
  * http://cs.unibo.it/helm/.
  *)
 
-module DiscriminationTreeIndexing =
+(* $Id$ *)
+
+module DiscriminationTreeIndexing =  
   functor (A:Set.S) -> 
     struct
 
@@ -59,7 +61,6 @@ module DiscriminationTreeIndexing =
       module DiscriminationTree = Trie.Make(PSMap);;
 
       type t = A.t DiscriminationTree.t
-      type elt = A.elt
       let empty = DiscriminationTree.empty
 
 (*