diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-17 02:35:08 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-17 02:35:08 +0000 |
commit | 9834fe8ac933230607eb33c9cbbaa68a7b13f4fe (patch) | |
tree | eba7cac3370d517aa0bf48a76e383a902426e894 /checker/checker.ml | |
parent | 927b92eb8e1abf7ff1978f812b602b276d69dd27 (diff) |
univ inconsistency error message gives evidence of a cycle
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15898 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/checker.ml')
-rw-r--r-- | checker/checker.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 8389803fc..8e0a2a1e5 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -252,12 +252,12 @@ let rec explain_exn = function hov 0 (anomaly_string () ++ str "uncaught exception Invalid_argument " ++ str (guill s) ++ report ()) | Sys.Break -> hov 0 (fnl () ++ str "User interrupt.") - | Univ.UniverseInconsistency (o,u,v) -> + | Univ.UniverseInconsistency (o,u,v,_) -> let msg = if !Flags.debug (*!Constrextern.print_universes*) then - spc() ++ str "(cannot enforce" ++ spc() ++ (*Univ.pr_uni u ++*) spc() ++ + spc() ++ str "(cannot enforce" ++ spc() ++ Univ.pr_uni u ++ spc() ++ str (match o with Univ.Lt -> "<" | Univ.Le -> "<=" | Univ.Eq -> "=") - ++ spc() ++ (*Univ.pr_uni v ++*) str")" + ++ spc() ++ Univ.pr_uni v ++ str")" else mt() in hov 0 (str "Error: Universe inconsistency" ++ msg ++ str ".") |