blob: 7105a658779da5a33441142de560d777eed99cef (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Set Universe Polymorphism.
Record Op := { t : Type ; op : t -> t }.
Canonical Structure OpType : Op := Build_Op Type (fun X => X).
Lemma test1 (X:Type) : eq (op OpType X) X.
Proof eq_refl.
Lemma test2 (A:Type) : eq (op _ A) A.
Fail Proof eq_refl.
|
