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. --- proofs/refiner.ml | 3 --- 1 file changed, 3 deletions(-) (limited to 'proofs/refiner.ml') diff --git a/proofs/refiner.ml b/proofs/refiner.ml index f0e8bf3ec..b47e16a3c 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -337,9 +337,6 @@ let tclPUSHEVARUNIVCONTEXT ctx gl = let tclPUSHCONSTRAINTS cst gl = tclEVARS (Evd.add_constraints (project gl) cst) gl -let tclPUSHUNIVERSECONSTRAINTS cst gl = - tclEVARS (Evd.add_universe_constraints (project gl) cst) gl - (* Check that holes in arguments have been resolved *) let check_evars env sigma extsigma origsigma = -- cgit v1.2.3