X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fcic_disambiguation%2FdisambiguateTypes.ml;h=a360dde384dfd87655864467bcbd8211beb0ab08;hb=cb4b3b6d71a8d0b5120fe6604cc55105637ef234;hp=79388f8198d3e20372a6f19c6ad17d55d0e0837a;hpb=cbcd34fe15122eb9835a5226b98be1050b097d6a;p=helm.git

diff --git a/components/cic_disambiguation/disambiguateTypes.ml b/components/cic_disambiguation/disambiguateTypes.ml
index 79388f819..a360dde38 100644
--- a/components/cic_disambiguation/disambiguateTypes.ml
+++ b/components/cic_disambiguation/disambiguateTypes.ml
@@ -55,6 +55,13 @@ struct
 
   include Environment'
 
+  let find k env =
+   match k with
+      Symbol (sym,n) ->
+       (try find k env
+        with Not_found -> find (Symbol (sym,0)) env)
+    | _ -> find k env
+
   let cons k v env =
     try
       let current = find k env in