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 | |
| parent | 6133c0633f4a3545de4017325d0f213fbbb5c07d (diff) | |
Use universe names when printing to dot.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/uGraph.ml | 5 | ||||
| -rw-r--r-- | kernel/uGraph.mli | 2 |
2 files changed, 3 insertions, 4 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 diff --git a/kernel/uGraph.mli b/kernel/uGraph.mli index 4336a22b8c..a2cc5b3116 100644 --- a/kernel/uGraph.mli +++ b/kernel/uGraph.mli @@ -86,7 +86,7 @@ val check_subtype : AUContext.t check_function (** {6 Dumping to a file } *) val dump_universes : - (constraint_type -> string -> string -> unit) -> t -> unit + (constraint_type -> Level.t -> Level.t -> unit) -> t -> unit (** {6 Debugging} *) val check_universes_invariants : t -> unit |