diff options
| author | Arnaud Spiwack | 2015-04-22 18:51:48 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-04-22 18:55:13 +0200 |
| commit | 501d6dd5691474c807a722d9b5b6e3fa9d83c749 (patch) | |
| tree | 959a4c35926f7b0e098cd82109b0bfde3f29ce3b /test-suite/bugs/opened | |
| 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/opened')
| -rw-r--r-- | test-suite/bugs/opened/3593.v | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/test-suite/bugs/opened/3593.v b/test-suite/bugs/opened/3593.v deleted file mode 100644 index d83b900607..0000000000 --- a/test-suite/bugs/opened/3593.v +++ /dev/null @@ -1,10 +0,0 @@ -Set Universe Polymorphism. -Set Printing All. -Set Implicit Arguments. -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). - reflexivity. -Qed. |