diff options
| author | herbelin | 2000-05-22 17:21:17 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-22 17:21:17 +0000 |
| commit | 08f5f4b1268624de1f8733ce30b51a62080f6ba6 (patch) | |
| tree | a9cebdf444e0b1fdcd77e00d725a7905cafe6ff0 /kernel/inductive.ml | |
| parent | abcf77362c7744ade443307d62dcb30e9025541a (diff) | |
suppression de l'env/sigma dans les fonctions de reduction beta et iota seuls
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@464 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 4a7649a79c..c096008db2 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -171,8 +171,8 @@ let ith_constructor_of_inductive (ind_sp,args) i = ((ind_sp,i),args) exception Induc -let extract_mrectype env sigma t = - let (t,l) = whd_stack env sigma t [] in +let extract_mrectype t = + let (t,l) = whd_stack t [] in match t with | DOPN(MutInd ind_sp,args) -> ((ind_sp,args),l) | _ -> raise Induc |