diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-25 11:13:25 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-25 11:13:25 +0000 |
| commit | 46c517e17df8c17cb274b2933d439718498a2f11 (patch) | |
| tree | 3ba800f947a48aba14d984987e98f202123cc930 /kernel | |
| parent | e6ba2e83fe0cb5e2fc53844bd0f5fe4b6d8ffb97 (diff) | |
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
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index ecbd59636..81bf39927 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" |