view final_pre/src/AgdaRecord.agda @ 17:73baedb5cdfb default tip

fix
author kono
date Thu, 22 Feb 2018 12:04:21 +0900
parents 28f900230c26
children
line wrap: on
line source

record Point : Set where
  field
    x : Nat
    y : Nat

makePoint : Nat -> Nat -> Point
makePoint a b = record { x = a ; y = b }