6
record Point : Set where
11
record { x = 4; y = 2 }
13
∙ projection functions
14
dist = x p ^ 2 + y p ^ 2
17
open module P = Point p
18
dist = sqrt (x ^ 2 + y ^ 2)
21
p ≡ record { x = x p; y = y p }
24
f (record { x = suc n }) = n
26
∙ record update syntax
28
record p { x = zero } ?
36
∙ projection functions
49
data Point : Set where
50
<Point> : (x : Nat)(y : Nat) -> Point
52
module Point (p : Point) where
63
will it be a problem? probably not