diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-05-27 11:21:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-05-27 11:21:52 +0000 |
| commit | c215bcf9d2f92201270757d77d9a17847c109787 (patch) | |
| tree | 62f3c3575372229b0a43978e59efddbc40efe673 | |
| parent | 7982eba6d57ce1772e69589d5a5325ea7c0327fc (diff) | |
Un bug résiduel (mais pas bien méchant) du noyau
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5767 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index fa89c847b..fd1fa92db 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -689,7 +689,7 @@ let inductive_of_mutfix env ((nvect,bodynum),(names,types,bodies as recdef)) = else check_occur env' (n+1) b else anomaly "check_one_fix: Bad occurrence of recursive call" | _ -> raise_err i NotEnoughAbstractionInFixBody in - check_occur env 1 def in + check_occur fixenv 1 def in (* Do it on every fixpoint *) let rv = array_map2_i find_ind nvect bodies in (Array.map fst rv, Array.map snd rv) |