X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fvirtuals.ml;h=a174ffa21dbf62595c5a07ea95090e3e13fdf92f;hb=3df31c02806eca83c63c14e6a89844f764c3e2cb;hp=229e780c28d8513951d1745e62595a7af7c642bb;hpb=e2718488c73b2cdf20b26af46e80a11b91fac220;p=helm.git

diff --git a/matita/matita/virtuals.ml b/matita/matita/virtuals.ml
index 229e780c2..a174ffa21 100644
--- a/matita/matita/virtuals.ml
+++ b/matita/matita/virtuals.ml
@@ -59,7 +59,7 @@ let similar_symbols symbol =
 let get_all_eqclass () =
   let rc = ref [] in
   Hashtbl.iter 
-    (fun k v ->
+    (fun _k v ->
       if not (List.mem v !rc) then
         rc := v :: !rc)
     classes;