diff options
author | 2015-04-22 18:51:48 +0200 | |
---|---|---|
committer | 2015-04-22 18:55:13 +0200 | |
commit | 501d6dd5691474c807a722d9b5b6e3fa9d83c749 (patch) | |
tree | 959a4c35926f7b0e098cd82109b0bfde3f29ce3b /pretyping/evd.ml | |
parent | 74d7dd7ae08dedfd80c056a345c1b3398eb91b5e (diff) |
Tactical `progress` compares term up to potentially equalisable universes.
Followup of: f7b29094fe7cc13ea475447bd30d9a8b942f0fef . In particular, re-closes #3593.
As a side effect, fixes an undiscovered bug of the `eq_constr` tactic which didn't consider terms up to evar instantiation.
Diffstat (limited to 'pretyping/evd.ml')
-rw-r--r-- | pretyping/evd.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index bf519fb7c..f414d71dc 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -1304,9 +1304,6 @@ let e_eq_constr_univs evdref t u = let evd, b = eq_constr_univs !evdref t u in evdref := evd; b -let eq_constr_univs_test evd t u = - snd (eq_constr_univs evd t u) - (**********************************************************) (* Accessing metas *) |