diff options
| author | Pierre-Marie Pédrot | 2018-11-07 11:42:38 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-07 11:42:38 +0100 |
| commit | 19b7ce2f39eaf37e48d1d12ef73defab3c9fbdb2 (patch) | |
| tree | a55af313e25a17382c94a60805b95e82f02ef6c6 /dev/checker_printers.ml | |
| parent | e857efb2e61c29a5b0b29702ca8d746ea2580ca6 (diff) | |
| parent | 7f2946157797ba7da3ed8712c10f5a0302b36d49 (diff) | |
Merge PR #8773: [checker] Refactor by sharing code with the kernel
Diffstat (limited to 'dev/checker_printers.ml')
| -rw-r--r-- | dev/checker_printers.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/dev/checker_printers.ml b/dev/checker_printers.ml index 40ae1a7b05..4f89bbd34e 100644 --- a/dev/checker_printers.ml +++ b/dev/checker_printers.ml @@ -59,15 +59,11 @@ let pP s = pp (hov 0 s) let ppuni u = pp(Universe.pr u) let ppuni_level u = pp (Level.pr u) -let ppuniverse_set l = pp (LSet.pr l) -let ppuniverse_instance l = pp (Instance.pr l) -let ppauniverse_context l = pp (AUContext.pr Level.pr l) let ppuniverse_context l = pp (pr_universe_context Level.pr l) let ppconstraints c = pp (pr_constraints Level.pr c) let ppuniverse_context_future c = let ctx = Future.force c in ppuniverse_context ctx -let ppuniverses u = pp (Univ.pr_universes u) let pploc x = let (l,r) = Loc.unloc x in print_string"(";print_int l;print_string",";print_int r;print_string")" |