diff options
| author | Gaëtan Gilbert | 2018-11-14 13:40:00 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-16 15:10:21 +0100 |
| commit | 1310a684c8dbcbf3c94022c8e9b6cec3bf092e3d (patch) | |
| tree | b59c1382c249ab7609ef43123df8f9f79d871345 /kernel/uGraph.ml | |
| parent | 6133c0633f4a3545de4017325d0f213fbbb5c07d (diff) | |
Use universe names when printing to dot.
Diffstat (limited to 'kernel/uGraph.ml')
| -rw-r--r-- | kernel/uGraph.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/uGraph.ml b/kernel/uGraph.ml index ad94362aaf..9083156745 100644 --- a/kernel/uGraph.ml +++ b/kernel/uGraph.ml @@ -967,12 +967,11 @@ let pr_universes prl g = let dump_universes output g = let dump_arc u = function | Canonical {univ=u; ltle; _} -> - let u_str = Level.to_string u in UMap.iter (fun v strict -> let typ = if strict then Lt else Le in - output typ u_str (Level.to_string v)) ltle; + output typ u v) ltle; | Equiv v -> - output Eq (Level.to_string u) (Level.to_string v) + output Eq u v in UMap.iter dump_arc g.entries |