diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-17 20:17:17 +0530 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-17 20:17:17 +0530 |
| commit | 3bcca0aecb368a723d247d1f8b2348790bc87035 (patch) | |
| tree | 81dbfb0613e67109887e9121e3d984bf752aa4ab /dev | |
| parent | 014878c3a05365d4af7e3edcfc8d612c45fdf1f3 (diff) | |
Univs: proper printing of global and local universe names (only
printing functions touched in the kernel).
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 202f9db02..dea70360a 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -207,21 +207,22 @@ let ppuni u = pp(pr_uni u) let ppuni_level u = pp (Level.pr u) let ppuniverse u = pp (str"[" ++ Universe.pr u ++ str"]") -let ppuniverse_set l = pp (LSet.pr l) -let ppuniverse_instance l = pp (Instance.pr l) -let ppuniverse_context l = pp (pr_universe_context l) -let ppuniverse_context_set l = pp (pr_universe_context_set l) +let prlev = Universes.pr_with_global_universes +let ppuniverse_set l = pp (LSet.pr prlev l) +let ppuniverse_instance l = pp (Instance.pr prlev l) +let ppuniverse_context l = pp (pr_universe_context prlev l) +let ppuniverse_context_set l = pp (pr_universe_context_set prlev l) let ppuniverse_subst l = pp (Univ.pr_universe_subst l) let ppuniverse_opt_subst l = pp (Universes.pr_universe_opt_subst l) let ppuniverse_level_subst l = pp (Univ.pr_universe_level_subst l) let ppevar_universe_context l = pp (Evd.pr_evar_universe_context l) let ppconstraints_map c = pp (Universes.pr_constraints_map c) -let ppconstraints c = pp (pr_constraints c) +let ppconstraints c = pp (pr_constraints Level.pr c) let ppuniverseconstraints c = pp (Universes.Constraints.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 ppuniverses u = pp (Univ.pr_universes Level.pr u) let ppnamedcontextval e = pp (pr_named_context (Global.env ()) Evd.empty (named_context_of_val e)) |