From ec23eacebf7e8ca541fc3269f1ed953d32f542ee Mon Sep 17 00:00:00 2001
From: mohring
Date: Fri, 29 Mar 2002 13:40:43 +0000
Subject: *** empty log message ***

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2576 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/inductive.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 16ff717e90..c98e222a00 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
 
-- 
cgit v1.2.3