blob: c069b2d9dcd6192fe1771ecdad727638ac4ca0cb (
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
32
33
34
35
36
37
|
Module A.
Set Printing All.
Set Printing Universes.
Module M.
Section foo.
Universe i.
End foo.
End M.
Check Type@{M.i}.
(* Succeeds *)
Fail Check Type@{j}.
(* Error: Undeclared universe: j *)
Definition foo@{j} : Type@{M.i} := Type@{j}.
(* ok *)
End A.
Import A. Import M.
Set Universe Polymorphism.
Fail Universes j.
Monomorphic Universe j.
Section foo.
Universes i.
Constraint i < j.
Definition foo : Type@{j} := Type@{i}.
Definition foo' : Type@{j} := Type@{i}.
End foo.
Check eq_refl : foo@{i} = foo'@{i}.
Definition bar := foo.
Monomorphic Definition bar'@{k} := foo@{k}.
Fail Constraint j = j.
Monomorphic Constraint i = i.
|
