diff options
| author | Matthieu Sozeau | 2014-06-10 13:08:48 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-10 13:08:48 +0200 |
| commit | f02823d9f6de5a8e5706c8433b6e2445cb50222f (patch) | |
| tree | a1abe9869258302bb165e7385334f5bc74a4d818 /dev | |
| parent | 80b589e91fe4c6e6e390132633557dc04b9c533a (diff) | |
Cleanup in Univ, moving code for UniverseConstraints outside the kernel in Universes.
Needed to exponse compare_head_gen(_leq) so that it could be reused in Universes.
Remove unused functions from univ as well and refactor a little bit.
Changed the syntax to Type@{} for explicit universe level specs, following the WG decision.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index c35d04e9d2..fb8509c503 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -191,7 +191,7 @@ 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 ppuniverseconstraints c = pp (UniverseConstraints.pr c) +let ppuniverseconstraints c = pp (Universes.Constraints.pr c) let ppuniverse_context_future c = let ctx = Future.force c in ppuniverse_context ctx |