diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-05-27 11:43:11 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-05-27 11:43:11 +0200 |
| commit | 866c41b9720413e00194ba7addb9c4277e114890 (patch) | |
| tree | 37fe660b28acfbaa6f3f304b6b9f3eebcf15dddb /tactics | |
| parent | ec5ef15aae0d6f900eb4a8e6ba61c0952c993eb3 (diff) | |
Fix bug #4159
Some asynchronous constraints between initial universes and the ones at
the end of a proof were forgotten. Also add a message to print universes
indicating if all the constraints are processed already or not.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/extratactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 177be2c20..e4240cb5c 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -268,7 +268,7 @@ let add_rewrite_hint bases ort t lcsr = let c, ctx = Constrintern.interp_constr env sigma ce in let ctx = if poly then - Evd.evar_universe_context_set ctx + Evd.evar_universe_context_set Univ.UContext.empty ctx else let cstrs = Evd.evar_universe_context_constraints ctx in (Global.add_constraints cstrs; Univ.ContextSet.empty) |