24 lines
407 B
Text
24 lines
407 B
Text
import data.num
|
|
|
|
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 A
|
|
|
|
set_option pp.universes true
|
|
check @one1.rec
|
|
check @pone.rec
|
|
check @two.rec
|
|
check @wrap.rec
|
|
check @wrap2.rec
|