2014-10-01 17:23:05 +00:00
|
|
|
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
|
|
|
|
|
|
2014-10-09 14:13:06 +00:00
|
|
|
context 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
|
