aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/3593.v
blob: 378db68570f61b1a2a4e54e16a246e6840f494c4 (plain)
1
2
3
4
5
6
7
8
9
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.