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