diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 15 | ||||
| -rw-r--r-- | kernel/univ.mli | 4 |
2 files changed, 6 insertions, 13 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 40bd2a20d4..da6f2e1791 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -600,19 +600,10 @@ let dump_universes output g = let dump_arc _ = function | Canonical {univ=u; lt=lt; le=le} -> let u_str = string_of_univ_level u in - List.iter - (fun v -> - Printf.fprintf output "%s < %s ;\n" u_str - (string_of_univ_level v)) - lt; - List.iter - (fun v -> - Printf.fprintf output "%s <= %s ;\n" u_str - (string_of_univ_level v)) - le + List.iter (fun v -> output `Lt u_str (string_of_univ_level v)) lt; + List.iter (fun v -> output `Le u_str (string_of_univ_level v)) le | Equiv (u,v) -> - Printf.fprintf output "%s = %s ;\n" - (string_of_univ_level u) (string_of_univ_level v) + output `Eq (string_of_univ_level u) (string_of_univ_level v) in UniverseLMap.iter dump_arc g diff --git a/kernel/univ.mli b/kernel/univ.mli index 3d4f97d515..85e2278911 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -85,6 +85,8 @@ val pr_constraints : constraints -> Pp.std_ppcmds (** {6 Dumping to a file } *) -val dump_universes : out_channel -> universes -> unit +val dump_universes : + ([> `Lt | `Le | `Eq ] -> string -> string -> unit) -> + universes -> unit val hcons1_univ : universe -> universe |