8 lines
194 B
Text
8 lines
194 B
Text
structure pointed [class] (A : Type) := (point : A)
|
|
|
|
open unit pointed
|
|
|
|
definition pointed_unit [instance] [constructor] : pointed unit :=
|
|
mk star
|
|
|
|
example : point unit = point unit := by esimp
|