record point :=
(x y : nat)

check point.x