diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2013-11-14 11:50:04 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:55 +0200 |
| commit | c1cd47d5dff18f12af063d2c8defbd985c97dec6 (patch) | |
| tree | e459818ae127339883bb124a525191215a3b38f2 /proofs/refiner.ml | |
| parent | 28e5f4def8bebdaf3bd75b6662bbd4fd88594689 (diff) | |
- Fix comparison of universes.
- Shortcut for Set <= x checks, assuming that this is always true except when
x (or rather its canonical representative) is Prop. Invariant to check.
- Uncomment the profiling code and make it depend on a (statically known) boolean.
Diffstat (limited to 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 663e24f9f..da9e8c68d 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -28,8 +28,11 @@ let refiner pr goal_sigma = { it = sgl; sigma = sigma'; } (* Profiling refiner *) -(* let refiner_key = Profile.declare_profile "refiner" *) -(* let refiner = Profile.profile2 refiner_key refiner *) +let refiner = + if Flags.profile then + let refiner_key = Profile.declare_profile "refiner" in + Profile.profile2 refiner_key refiner + else refiner (*********************) (* Tacticals *) |