From 2e41b153839272226a5e07c51cd24529d61b98d9 Mon Sep 17 00:00:00 2001
From: glondu
Date: Tue, 11 Jan 2011 16:57:46 +0000
Subject: Use dashed lines for equivalence edges in dot output of universes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13785 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernacentries.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 1265fe02b1..367f0ef00a 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -216,8 +216,7 @@ let dump_universes s =
           | Univ.Le ->
             Printf.fprintf output "  \"%s\" -> \"%s\" [style=solid];\n" right left
           | Univ.Eq ->
-            Printf.fprintf output "  \"%s\" -> \"%s\" [style=solid];\n" left right;
-            Printf.fprintf output "  \"%s\" -> \"%s\" [style=solid];\n" right left
+            Printf.fprintf output "  \"%s\" -> \"%s\" [style=dashed];\n" left right
       end, begin fun () ->
         if Lazy.lazy_is_val init then Printf.fprintf output "}\n";
         close_out output
-- 
cgit v1.2.3