diff options
| author | glondu | 2011-01-11 16:57:46 +0000 |
|---|---|---|
| committer | glondu | 2011-01-11 16:57:46 +0000 |
| commit | 2e41b153839272226a5e07c51cd24529d61b98d9 (patch) | |
| tree | 55b7bdc1dd7dff8e4e7cd3ba328ea593f7cd6a1f | |
| parent | 64edc250dddb2ea8404a68d4d387088c4b10ecac (diff) | |
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
| -rw-r--r-- | toplevel/vernacentries.ml | 3 |
1 files changed, 1 insertions, 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 |