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/closed/3593.v | |
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/closed/3593.v')
-rw-r--r-- | test-suite/bugs/closed/3593.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3593.v b/test-suite/bugs/closed/3593.v new file mode 100644 index 000000000..378db6857 --- /dev/null +++ b/test-suite/bugs/closed/3593.v @@ -0,0 +1,10 @@ +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 progress change (@fst Set Set x) with (fst (A := Set) (B := Set) x). + reflexivity. +Qed. |