diff options
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 |