23 lines
326 B
Text
23 lines
326 B
Text
|
inductive one.{l} : Type.{max 1 l} :=
|
||
|
|
unit : one.{l}
|
||
|
|
|
||
|
|
set_option pp.universes true
|
||
|
|
check one
|
||
|
|
|
||
|
|
|
||
|
|
inductive one2.{l} : Type.{max 1 l} :=
|
||
|
|
unit : one2
|
||
|
|
|
||
|
|
check one2
|
||
|
|
|
||
|
|
section foo
|
||
|
|
universe l2
|
||
|
|
parameter A : Type.{l2}
|
||
|
|
|
||
|
|
inductive wrapper.{l} : Type.{max 1 l l2} :=
|
||
|
|
mk : A → wrapper.{l2 l}
|
||
|
|
check wrapper
|
||
|
|
end foo
|
||
|
|
|
||
|
|
check wrapper
|