blob: 5bb7fa8c1229c4d89f85b6d3b175730e895308cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Set Implicit Arguments.
Require Import Logic.
Global Set Universe Polymorphism.
Global Set Asymmetric Patterns.
Local Set Record Elimination Schemes.
Local Set Primitive Projections.
Record prod (A B : Type) : Type :=
pair { fst : A; snd : B }.
Check fun x : prod Set Set => eq_refl : x = pair (fst x) (snd x).
|