blob: b81185a55595e7142a7808ef370dcc742d3d4a8b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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.
|
