diff options
| author | ppedrot | 2012-11-26 15:52:30 +0000 |
|---|---|---|
| committer | ppedrot | 2012-11-26 15:52:30 +0000 |
| commit | 49c4c49a402c6ec826a506903fcfab1bbd96e080 (patch) | |
| tree | 1c93875b77cb03c51f9c0bb79ca13444e15d8b70 /toplevel | |
| parent | 187210bf8c6d4510b2228fbe4439cd23108c98a1 (diff) | |
Removed some FIXME related to equality on universes.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16007 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/cerrors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml index 9a9c99c12c..cc455dfeb5 100644 --- a/toplevel/cerrors.ml +++ b/toplevel/cerrors.ml @@ -77,7 +77,7 @@ let rec process_vernac_interp_error = function str " because" ++ spc() ++ Univ.pr_uni v ++ prlist (fun (r,v) -> spc() ++ pr_rel r ++ str" " ++ Univ.pr_uni v) p ++ - (if Pervasives.(=) (snd (List.last p)) u then mt() else (* FIXME *) + (if Univ.Universe.equal (snd (List.last p)) u then mt() else (spc() ++ str "= " ++ Univ.pr_uni u)) in let msg = if !Constrextern.print_universes then |