diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-09-08 12:27:36 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-09-08 12:27:36 +0000 |
| commit | f557a128bb42c22991513e82037070ecbe81cc7c (patch) | |
| tree | bc05486c4466c295374d7ce2febfbcf92a8e1142 /kernel | |
| parent | 83407b72d17ec5b84ef5830a32288313fbfb9bd6 (diff) | |
Simplification message d'anomalie
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7352 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 4bb96820c..5f2f845aa 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. *) |