2014-10-01 17:56:05 +00:00
|
|
|
import data.num
|
|
|
|
|
|
|
|
|
|
inductive one.{l} : Type.{l} :=
|
|
|
|
|
unit : one
|
|
|
|
|
|
|
|
|
|
inductive pone : Type.{0} :=
|
|
|
|
|
unit : pone
|
|
|
|
|
|
2014-11-14 21:35:16 +00:00
|
|
|
inductive two.{l} : Type.{max 1 l} :=
|
2015-02-26 01:00:10 +00:00
|
|
|
| o : two
|
|
|
|
|
| u : two
|
2014-10-01 17:56:05 +00:00
|
|
|
|
2014-11-14 21:35:16 +00:00
|
|
|
inductive wrap.{l} : Type.{max 1 l} :=
|
2014-10-01 17:56:05 +00:00
|
|
|
mk : true → wrap
|
|
|
|
|
|
2014-11-14 21:35:16 +00:00
|
|
|
inductive wrap2.{l} (A : Type.{l}) : Type.{max 1 l} :=
|
2014-10-01 17:56:05 +00:00
|
|
|
mk : A → wrap2 A
|
|
|
|
|
|
|
|
|
|
set_option pp.universes true
|
|
|
|
|
check @one.rec
|
|
|
|
|
check @pone.rec
|
|
|
|
|
check @two.rec
|
|
|
|
|
check @wrap.rec
|
|
|
|
|
check @wrap2.rec
|
