From ce0c127811d3481ddd8583834a246e15dcb8f967 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 1 Oct 2000 13:54:01 +0000
Subject: Suppression de ensure_appl

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

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 33d15798a4..bbc7918dca 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -238,12 +238,13 @@ let get_constructor (IndFamily (mispec,params)) j =
   assert (j <= mis_nconstr mispec);
   let typi = mis_type_nf_mconstruct j mispec in
   let (args,ccl) = decompose_prod_assum (prod_applist typi params) in
-  let (_,vargs) = array_chop (mis_nparams mispec + 1) (destAppL (ensure_appl ccl)) in
+  let (_,allargs) = whd_stack ccl in
+  let (_,vargs) = list_chop (mis_nparams mispec) allargs in
   { cs_cstr = ith_constructor_of_inductive (mis_inductive mispec) j;
     cs_params = params;
     cs_nargs = rel_context_length args;
     cs_args = args;
-    cs_concl_realargs = vargs }
+    cs_concl_realargs = Array.of_list vargs }
 
 let get_constructors (IndFamily (mispec,params) as indf) =
   Array.init (mis_nconstr mispec) (fun j -> get_constructor indf (j+1))
-- 
cgit v1.2.3