diff options
| author | herbelin | 2000-05-18 08:14:28 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-18 08:14:28 +0000 |
| commit | aaa56145f319b58300ed7f914b35eb11321838e4 (patch) | |
| tree | a24271d50a26991be09ab5bb1440289e7beaf8e5 /kernel | |
| parent | b71bb95005c9a9db0393bcafc2d43383335c69bf (diff) | |
Effets de bords suite à la restructuration des inductives (cf Inductive)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@442 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/closure.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 00aa0363f4..e7b1a634fa 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -6,7 +6,6 @@ open Pp open Term open Generic open Names -open Inductive open Environ open Instantiate open Univ @@ -310,7 +309,7 @@ let fixp_reducible redfun flgs op stk = false let mindsp_nparams env sp = - let mib = lookup_mind sp env in mib.mind_nparams + let mib = lookup_mind sp env in mib.Constant.mind_nparams (* The main recursive functions * |