X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.ml;h=633ecea576540e80ed8786eef5916c6bcd783c88;hb=5d0d8107649b9264ebe7d8ff2c69bf777179b0d2;hp=baae7f9c2f7486e1561b3ad6a47eddaeb7522c5b;hpb=156b87c397a8b5cf9b7381def41e070e235941ee;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index baae7f9c2..633ecea57 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -177,7 +177,7 @@ let apply_subst subst context t =
        let t = NCicSubstitution.subst_meta lc t in
         apply_subst subst () t
       with
-       Not_found ->
+       NCicUtils.Subst_not_found j when j = i ->
         match lc with
            _,NCic.Irl _ -> NCic.Meta (i,lc)
          | n,NCic.Ctx l ->