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/safe_typing.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/safe_typing.ml')

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index a6934b9dc0..925ca9bf0f 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -470,7 +470,7 @@ let add_mind sp mie env =
 	 (ind'::inds, Constraint.union cst cst'))
       mie.mind_entry_inds
       params_arity_list
-      ([],Constraint.empty) in
+      ([],cst) in
 
   (* Finally, we build the inductive packet and push it to env *)
   let kind = kind_of_path sp in
-- 
cgit v1.2.3