X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.ml;h=9c96469e55053487f64026c66184648f9a0d2684;hb=60f0eb9495af3b713c83ece46effd76dbaa40ce6;hp=b110d0651adff6d6afd61978a43d8589fe1f6900;hpb=2da35c1dc1aff5f852886ac64d641774f2f187cf;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index b110d0651..9c96469e5 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -313,15 +313,12 @@ let sort_metasenv subst (m : NCic.metasenv) =
   (MS.topological_sort m (relations_of_menv subst m) : NCic.metasenv)
 ;;
 
-let count_occurrences ~subst context n t = 
+let count_occurrences ~subst n t = 
   let occurrences = ref 0 in
   let rec aux k _ = function
     | C.Rel m when m = n+k -> incr occurrences
-    | C.Rel m ->
-        (try match List.nth context (m-1-k) with
-          | _,C.Def (bo,_) -> aux (n-m) () bo
-          | _ -> ()
-         with Failure _ -> assert false)
+    | C.Rel m -> ()
+    | C.Implicit _ -> ()
     | C.Meta (_,(_,(C.Irl 0 | C.Ctx []))) -> (* closed meta *) ()
     | C.Meta (mno,(s,l)) ->
          (try