lean2/tests/lean/run/record4.lean

import logic data.unit

set_option structure.eta_thm true

structure point (A : Type) (B : Type) :=
mk :: (x : A) (y : B)

check point.eta

example (p : point num num) : point.mk (point.x p) (point.y p) = p :=
point.eta p

inductive color :=
red, green, blue

structure color_point (A : Type) (B : Type) extends point A B :=
mk :: (c : color)
feat(frontends/lean/structure_cmd): add 'eta' theorem for structures 2014-11-04 02:33:44 +00:00			`import logic data.unit`

feat(frontends/lean/structure): add option for controlling whether we automatically generate eta and projection-over-intro theorems for structures It seems most of the time these theorems are not used at all. They are just polluting the namespace. Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-12-09 20:40:09 +00:00			`set_option structure.eta_thm true`

feat(frontends/lean/structure_cmd): add 'eta' theorem for structures 2014-11-04 02:33:44 +00:00			`structure point (A : Type) (B : Type) :=`
			`mk :: (x : A) (y : B)`

			`check point.eta`

			`example (p : point num num) : point.mk (point.x p) (point.y p) = p :=`
			`point.eta p`

			`inductive color :=`
			`red, green, blue`

			`structure color_point (A : Type) (B : Type) extends point A B :=`
			`mk :: (c : color)`