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.
|
