2015-10-13 15:39:03 -07:00
|
|
|
inductive one1.{l} : Type.{max 1 l} :=
|
|
|
|
unit : one1.{l}
|
2014-10-01 10:23:05 -07:00
|
|
|
|
|
|
|
set_option pp.universes true
|
2015-10-13 15:39:03 -07:00
|
|
|
check one1
|
2014-10-01 10:23:05 -07:00
|
|
|
|
|
|
|
|
|
|
|
inductive one2.{l} : Type.{max 1 l} :=
|
|
|
|
unit : one2
|
|
|
|
|
|
|
|
check one2
|
|
|
|
|
2015-04-21 19:33:21 -07:00
|
|
|
section foo
|
2014-10-01 10:23:05 -07:00
|
|
|
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
|