X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fcic%2Fcic.ml;h=1becd44428bd3b4f9139c01280e0d47ef48de26e;hb=eba67a7f8b8f479ff60226d2d8c935c60277f8e6;hp=64825e505dbc717585e0b444cd19e97d1c3762a9;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/cic/cic.ml b/components/cic/cic.ml
index 64825e505..1becd4442 100644
--- a/components/cic/cic.ml
+++ b/components/cic/cic.ml
@@ -234,7 +234,7 @@ module CicHash =
   (struct
     type t = term
     let equal = (==)
-    let hash = Hashtbl.hash
+    let hash = Hashtbl.hash_param 100 1000 
    end)
 ;;