19 lines
264 B
Text
19 lines
264 B
Text
section foo
|
|
parameter A : Type
|
|
variable a : A
|
|
definition foo := a
|
|
|
|
check foo
|
|
|
|
structure [class] point :=
|
|
(x : A) (y : A)
|
|
end foo
|
|
|
|
check foo
|
|
|
|
attribute [instance]
|
|
definition point_nat : point nat :=
|
|
point.mk nat.zero nat.zero
|
|
|
|
print classes
|
|
check point
|