X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_tactics%2FnnAuto.ml;fp=matita%2Fcomponents%2Fng_tactics%2FnnAuto.ml;h=25bc6376119ebcaff753212c7ba11aa4666ea929;hb=e6ab6822e9fa00e8f0ee41421693159a81e47dd5;hp=b8a3dd44a0af3340efe48830192578eaf3060a32;hpb=4de8e995bb4550b3da94aa15a9d71ddc44dad0a8;p=helm.git

diff --git a/matita/components/ng_tactics/nnAuto.ml b/matita/components/ng_tactics/nnAuto.ml
index b8a3dd44a..25bc63761 100644
--- a/matita/components/ng_tactics/nnAuto.ml
+++ b/matita/components/ng_tactics/nnAuto.ml
@@ -26,9 +26,9 @@ let app_counter = ref 0
 
 module RHT = struct
   type t = NReference.reference
-  let equal = (==)
-  let compare = Pervasives.compare
-  let hash = Hashtbl.hash
+  let equal = NReference.eq
+  let compare = NReference.compare
+  let hash = NReferece.hash
 end;;
 
 module RefHash = Hashtbl.Make(RHT);;