From b56ddb6c23829a22c0a757e590fb03993723d809 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 5 May 2005 20:55:33 +0000
Subject: Bug affichage graphe univers

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

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index 07bf610025..4bb96820cd 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -63,7 +63,7 @@ let pr_uni = function
   | Max (gel,gtl) ->
       str "max(" ++ 
       prlist_with_sep pr_coma pr_uni_level gel ++
-      if gel <> [] & gtl <> [] then pr_coma () else mt () ++
+      (if gel <> [] & gtl <> [] then pr_coma () else mt ()) ++
       prlist_with_sep pr_coma
 	(fun x -> str "(" ++ pr_uni_level x ++ str ")+1") gtl ++
       str ")"
@@ -414,6 +414,7 @@ let pr_arc = function
       pr_uni_level u ++ str " " ++
       v 0
         (prlist_with_sep pr_spc (fun v -> str "< " ++ pr_uni_level v) lt ++
+	 (if lt <> [] & le <> [] then spc () else mt()) ++
          prlist_with_sep pr_spc (fun v -> str "<= " ++ pr_uni_level v) le) ++
       fnl ()
   | Equiv (u,v) -> 
-- 
cgit v1.2.3