diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-05 20:55:33 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-05 20:55:33 +0000 |
commit | b56ddb6c23829a22c0a757e590fb03993723d809 (patch) | |
tree | 4d56fb5846f9e7e2017e42d6ba73aa58365b0747 /kernel | |
parent | ad74cfff28ffc9e82cb14d189761cf9c776ab09d (diff) |
Bug affichage graphe univers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6994 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/univ.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 07bf61002..4bb96820c 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) -> |