diff options
| author | Matthieu Sozeau | 2013-11-14 11:50:04 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:55 +0200 |
| commit | c1cd47d5dff18f12af063d2c8defbd985c97dec6 (patch) | |
| tree | e459818ae127339883bb124a525191215a3b38f2 /kernel/vars.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 'kernel/vars.ml')
| -rw-r--r-- | kernel/vars.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/kernel/vars.ml b/kernel/vars.ml index 3cff51ba6d..a9f4644abf 100644 --- a/kernel/vars.ml +++ b/kernel/vars.ml @@ -259,8 +259,11 @@ let subst_univs_constr subst c = let f = Univ.make_subst subst in subst_univs_fn_constr f c -(* let subst_univs_constr_key = Profile.declare_profile "subst_univs_constr" *) -(* let subst_univs_constr = Profile.profile2 subst_univs_constr_key subst_univs_constr *) +let subst_univs_constr = + if Flags.profile then + let subst_univs_constr_key = Profile.declare_profile "subst_univs_constr" in + Profile.profile2 subst_univs_constr_key subst_univs_constr + else subst_univs_constr let subst_univs_level_constr subst c = if Univ.is_empty_level_subst subst then c |