blob: d83b900607ba97c8307386fe7f48b0a67807093d (
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 Fail progress change (@fst Set Set x) with (fst (A := Set) (B := Set) x).
reflexivity.
Qed.
|