From d608222a594861efbae01e71018b8dcfc143e09a Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 15 Dec 2000 14:26:58 +0000
Subject:  - suppression mind_extract_params  - contraintes univers parametres
 inductifs prises en compte  - exception UniverseInconsistency donne un
 message    "Error: Universe Inconsistency"

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

(limited to 'kernel/indtypes.ml')

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index f10e59c9c7..2307a405f5 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -74,8 +74,7 @@ let mind_check_names mie =
    declaration, and checks that they are all present (and all the same)
    for all the given types. *)
 
-let mind_extract_params n c =
-  let (l,c') = decompose_prod_n_assum n c in (l,c')
+let mind_extract_params = decompose_prod_n_assum
 
 let mind_check_arities env mie =
   let check_arity id c =
-- 
cgit v1.2.3