blob: 0e16cb23998f8e281e02801dbb43fcc782f6f0bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Module foo.
Context (Char : Type).
Axiom foo : Type -> Type.
Goal foo Char = foo Char.
change foo with (fun x => foo x).
cbv beta.
reflexivity.
Defined.
End foo.
Inductive foo (A : Type) : Prop := I. (*Top.1*)
Lemma bar : foo Type. (*Top.3*)
Proof.
Set Printing Universes.
change foo with (fun x : Type => foo x). (*Top.4*)
cbv beta.
apply I. (* I Type@{Top.3} : (fun x : Type@{Top.4} => foo x) Type@{Top.3} *)
Defined.
|