From 46c517e17df8c17cb274b2933d439718498a2f11 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 25 May 2001 11:13:25 +0000
Subject: erreur DeBruijn causant un RecursionNotOnInductiveType quand le type
 est un Let

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1763 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/typeops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/typeops.ml')

diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index ecbd596365..81bf399279 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -571,7 +571,7 @@ let rec check_subterm_rec_meta env sigma vectn k def =
        | IsLambda (x,a,b) -> 
 	   if noccur_with_meta n nfi a then
 	     let env' = push_rel_assum (x, a) env in
-             if n = k+1 then (env',a,b)
+             if n = k+1 then (env', lift 1 a, b)
 	     else check_occur env' (n+1) b
            else 
 	     anomaly "check_subterm_rec_meta: Bad occurrence of recursive call"
-- 
cgit v1.2.3