view Paper/src/NatAdd.agda.replaced @ 0:c59202657321

init
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Tue, 02 Nov 2021 06:55:58 +0900
parents
children 339fb67b4375
line wrap: on
line source

open import nat
module nat_add where
 
_+_ : Nat @$\rightarrow$@ Nat @$\rightarrow$@ Nat
O + m     = m
(S n) + m = S (n + m)