9 lines
174 B
Text
9 lines
174 B
Text
import logic data.unit
|
|
|
|
structure point (A : Type) (B : Type) :=
|
|
mk :: (x : A) (y : B)
|
|
|
|
structure point2 (A : Type) (B : Type) extends point A B :=
|
|
make
|
|
|
|
print prefix point2
|