blob: a3a8717d98a489ba8e91b29ecef3d5726427eeb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Set Universe Polymorphism.
Record TYPE@{i} := cType {
type : Type@{i};
}.
Definition PROD@{i j k}
(A : Type@{i})
(B : A -> Type@{j})
: TYPE@{k}.
Proof.
refine (cType@{i} _).
+ refine (forall x : A, B x).
Defined.
Local Unset Strict Universe Declaration.
Definition PRODinj
(A : Type@{i})
(B : A -> Type)
: TYPE.
Proof.
refine (cType@{i} _).
+ refine (forall x : A, B x).
Defined.
Monomorphic Universe i j.
Monomorphic Constraint j < i.
Set Printing Universes.
Check PROD@{i i i}.
Check PRODinj@{i j}.
Fail Check PRODinj@{j i}.
|
