blob: 0b9c3183ccf55279eb448e4858b4427a1403d1f0 (
plain)
1
2
3
4
5
6
7
8
9
|
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.
Definition test2 (A:Type) : eq (op _ A) A.
Proof eq_refl.
|