lean2/tests/lean/run/one2.lean

import data.num

inductive one.{l} : Type.{l} :=
unit : one

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 @one.rec
check @pone.rec
check @two.rec
check @wrap.rec
check @wrap2.rec
feat(kernel/inductive): relaxed rules for defining datatypes with explicit universes, closes #217 2014-10-01 17:56:05 +00:00			`import data.num`

			`inductive one.{l} : Type.{l} :=`
			`unit : one`

			`inductive pone : Type.{0} :=`
			`unit : pone`

fix(frontends/lean/inductive_cmd): generate error for inductive datatype declarations that will produce an eliminator that can only eliminate to Prop 2014-11-14 21:35:16 +00:00			`inductive two.{l} : Type.{max 1 l} :=`
feat(kernel/inductive): relaxed rules for defining datatypes with explicit universes, closes #217 2014-10-01 17:56:05 +00:00			`o : two,`
			`u : two`

fix(frontends/lean/inductive_cmd): generate error for inductive datatype declarations that will produce an eliminator that can only eliminate to Prop 2014-11-14 21:35:16 +00:00			`inductive wrap.{l} : Type.{max 1 l} :=`
feat(kernel/inductive): relaxed rules for defining datatypes with explicit universes, closes #217 2014-10-01 17:56:05 +00:00			`mk : true → wrap`

fix(frontends/lean/inductive_cmd): generate error for inductive datatype declarations that will produce an eliminator that can only eliminate to Prop 2014-11-14 21:35:16 +00:00			`inductive wrap2.{l} (A : Type.{l}) : Type.{max 1 l} :=`
feat(kernel/inductive): relaxed rules for defining datatypes with explicit universes, closes #217 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`