22 lines
381 B
Text
22 lines
381 B
Text
inductive one1.{l} : Type.{l}
|
|
| unit : one1
|
|
|
|
inductive pone : Type.{0}
|
|
| unit : pone
|
|
|
|
inductive two.{l} : Type.{max 1 l}
|
|
| o : two
|
|
| u : two
|
|
|
|
inductive wrap.{l} : Type.{max 1 l}
|
|
| mk : true → wrap
|
|
|
|
inductive wrap2.{l} (A : Type.{l}) : Type.{max 1 l}
|
|
| mk : A → wrap2
|
|
|
|
set_option pp.universes true
|
|
check @one1.rec
|
|
check @pone.rec
|
|
check @two.rec
|
|
check @wrap.rec
|
|
check @wrap2.rec
|