From 2f5c0f8880cd4ccc27cef4980768d35c9ebd26ea Mon Sep 17 00:00:00 2001 From: mohring Date: Wed, 2 Nov 2005 22:12:16 +0000 Subject: Types inductifs parametriques git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7493 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/vconv.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'kernel/vconv.ml') diff --git a/kernel/vconv.ml b/kernel/vconv.ml index 5ef84adc7..cdc9fa0f7 100644 --- a/kernel/vconv.ml +++ b/kernel/vconv.ml @@ -318,7 +318,7 @@ let find_rectype typ = let construct_of_constr_block env tag typ = let (mind,_ as ind),allargs = find_rectype (whd_betadeltaiota env typ) in let (mib,mip) = Inductive.lookup_mind_specif env ind in - let nparams = mip.mind_nparams in + let nparams = mib.mind_nparams in let rtbl = mip.mind_reloc_tbl in let i = invert_tag false tag rtbl in let params = Array.sub allargs 0 nparams in @@ -429,7 +429,7 @@ and nf_stk env c t stk = | Zswitch sw :: stk -> let (mind,_ as ind),allargs = find_rectype (whd_betadeltaiota env t) in let (mib,mip) = Inductive.lookup_mind_specif env ind in - let nparams = mip.mind_nparams in + let nparams = mib.mind_nparams in let params,realargs = Util.array_chop nparams allargs in (* calcul du predicat du case, [dep] indique si c'est un case dependant *) -- cgit v1.2.3