From 95d4aef96fb7b490b188afe66e8345428e9706ee Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sat, 6 Sep 2003 19:12:08 +0000
Subject: Paramétrisation vis à vis de existential_key
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4321 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/indrec.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping/indrec.ml')

diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml
index ca25938b6..78c23ae61 100644
--- a/pretyping/indrec.ml
+++ b/pretyping/indrec.ml
@@ -71,7 +71,7 @@ let mis_make_case_com depopt env sigma (ind,mib,mip) kind =
       let ci = make_default_case_info env RegularStyle ind in
       let depind = build_dependent_inductive env indf in
       let deparsign = (Anonymous,None,depind)::lnamesar in
-      let p = (* mkRel nbprod *)
+      let p =
       it_mkLambda_or_LetIn_name env'
           (appvect
             (mkRel ((if dep then nbargsprod else mip.mind_nrealargs) + nbprod),
-- 
cgit v1.2.3