comparison final_main/src/AgdaRecordProj.agda @ 0:83f997abf3b5

first commit
author e155702
date Thu, 14 Feb 2019 16:51:50 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:83f997abf3b5
1 getX : Point -> Nat
2 getX p = Point.x p
3
4 getY : Point -> Nat
5 getY record { x = a ; y = b} = b
6
7 xPlus5 : Point -> Point
8 xPlus5 p = record p { x = (Point.x p) + 5}