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