From f02823d9f6de5a8e5706c8433b6e2445cb50222f Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Tue, 10 Jun 2014 13:08:48 +0200 Subject: 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. --- dev/top_printers.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'dev') 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 -- cgit v1.2.3