blob: 0bb05e77ce9e66f3b16bf57f86df1135a3a94eac (
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
|
#[universes(polymorphic)]
Section foo.
Polymorphic Universes A B.
Fail Monomorphic Constraint A <= B.
End foo.
(* gives an anomaly Universe undefined *)
Universes X Y.
#[universes(polymorphic)]
Section Foo.
Polymorphic Universes Z W.
Polymorphic Constraint W < Z.
Fail Monomorphic Definition bla := Type@{W}.
Polymorphic Definition bla := Type@{W}.
#[universes(polymorphic)]
Section Bar.
Fail Monomorphic Constraint X <= Z.
End Bar.
End Foo.
Require Coq.Classes.RelationClasses.
Class PreOrder (A : Type) (r : A -> A -> Type) : Type :=
{ refl : forall x, r x x }.
#[universes(polymorphic)]
Section qux.
Polymorphic Universes A.
#[universes(polymorphic)]
Section bar.
Fail Monomorphic Context {A : Type@{A}} {rA : A -> A -> Prop} {PO : PreOrder A rA}.
End bar.
End qux.
|
