From f557a128bb42c22991513e82037070ecbe81cc7c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 8 Sep 2005 12:27:36 +0000
Subject: Simplification message d'anomalie

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

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index 4bb96820cd..5f2f845aa1 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -75,8 +75,7 @@ let super = function
       Max ([],[u])
   | Max _ ->
       anomaly ("Cannot take the successor of a non variable universes:\n"^
-       "you are probably typing a type already known to be the type\n"^
-       "of a user-provided term; if you really need this, please report")
+               "(maybe a bugged tactic)")
 
 (* Returns the formal universe that is greater than the universes u and v.
    Used to type the products. *)
-- 
cgit v1.2.3