X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fcic_disambiguation%2FdisambiguateTypes.ml;h=8263fd3152b8c2c05bb13e7ce25c64e36f53d8c1;hb=97e7c8fb7707376c601dafe62bf872d3aa926e2e;hp=a360dde384dfd87655864467bcbd8211beb0ab08;hpb=7ea5e4e0064e2c66730105af437eb404b0ed1498;p=helm.git

diff --git a/components/cic_disambiguation/disambiguateTypes.ml b/components/cic_disambiguation/disambiguateTypes.ml
index a360dde38..8263fd315 100644
--- a/components/cic_disambiguation/disambiguateTypes.ml
+++ b/components/cic_disambiguation/disambiguateTypes.ml
@@ -60,6 +60,9 @@ struct
       Symbol (sym,n) ->
        (try find k env
         with Not_found -> find (Symbol (sym,0)) env)
+    | Num n ->
+       (try find k env
+        with Not_found -> find (Num 0) env)
     | _ -> find k env
 
   let cons k v env =