diff options
| author |  mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-29 13:40:43 +0000 |
|---|---|---|
| committer | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-29 13:40:43 +0000 |
| commit | ec23eacebf7e8ca541fc3269f1ed953d32f542ee (patch) | |
| tree | c2029ce13109fb06fe927a5ad2ba7287a13e55c2 | |
| parent | b96a3c5f6d96303cc0b08b71b1262f200c201377 (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2576 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 16ff717e9..c98e222a0 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -416,8 +416,8 @@ let inductive_of_fix env recarg body = - [Some lc] if [c] is a strict subterm of the rec. arg. (or a Meta) - [None] otherwise *) -let rec subterm_specif renv c ind = - let f,l = decompose_app (whd_betadeltaiota renv.env c) in +let rec subterm_specif renv t ind = + let f,l = decompose_app (whd_betadeltaiota renv.env t) in match kind_of_term f with | Rel k -> subterm_var k renv |