05f27b8f0e
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>
17 lines
343 B
Text
17 lines
343 B
Text
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)
|