9 lines
194 B
Text
9 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
|