25 lines
383 B
Text
25 lines
383 B
Text
|
import data.num
|
||
|
|
|
||
|
|
inductive one.{l} : Type.{l} :=
|
||
|
|
unit : one
|
||
|
|
|
||
|
|
inductive pone : Type.{0} :=
|
||
|
|
unit : pone
|
||
|
|
|
||
|
|
inductive two.{l} : Type.{l} :=
|
||
|
|
o : two,
|
||
|
|
u : two
|
||
|
|
|
||
|
|
inductive wrap.{l} : Type.{l} :=
|
||
|
|
mk : true → wrap
|
||
|
|
|
||
|
|
inductive wrap2.{l} (A : Type.{l}) : Type.{l} :=
|
||
|
|
mk : A → wrap2 A
|
||
|
|
|
||
|
|
set_option pp.universes true
|
||
|
|
check @one.rec
|
||
|
|
check @pone.rec
|
||
|
|
check @two.rec
|
||
|
|
check @wrap.rec
|
||
|
|
check @wrap2.rec
|