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
---
 toplevel/errors.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'toplevel/errors.ml')

diff --git a/toplevel/errors.ml b/toplevel/errors.ml
index c72f2ddb3c..6c76e5e888 100644
--- a/toplevel/errors.ml
+++ b/toplevel/errors.ml
@@ -55,6 +55,8 @@ let rec explain_exn_default = function
       hOV 0 [< 'sTR "Anomaly: Invalid argument "; 'sTR (guill s); report () >]
   | Sys.Break -> 
       hOV 0 [< 'fNL; 'sTR"User Interrupt." >]
+  | Univ.UniverseInconsistency -> 
+      hOV 0 [< 'sTR "Error: Universe Inconsistency." >]
   | TypeError(k,ctx,te) -> 
       hOV 0 [< 'sTR "Error:"; 'sPC; Himsg.explain_type_error k ctx te >]
   | InductiveError e -> 
-- 
cgit v1.2.3