diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2015-04-22 18:51:48 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2015-04-22 18:55:13 +0200 |
| commit | 501d6dd5691474c807a722d9b5b6e3fa9d83c749 (patch) | |
| tree | 959a4c35926f7b0e098cd82109b0bfde3f29ce3b /test-suite/bugs | |
| 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 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/3593.v (renamed from test-suite/bugs/opened/3593.v) | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/bugs/opened/3593.v b/test-suite/bugs/closed/3593.v index d83b90060..378db6857 100644 --- a/test-suite/bugs/opened/3593.v +++ b/test-suite/bugs/closed/3593.v @@ -5,6 +5,6 @@ Record prod A B := pair { fst : A ; snd : B }. Goal forall x : prod Set Set, let f := @fst _ in f _ x = @fst _ _ x. simpl; intros. constr_eq (@fst Set Set x) (fst (A := Set) (B := Set) x). - Fail Fail progress change (@fst Set Set x) with (fst (A := Set) (B := Set) x). + Fail progress change (@fst Set Set x) with (fst (A := Set) (B := Set) x). reflexivity. Qed. |