view paper/src/NatAdd.agda @ 4:bf1f62556b81

add while_test_init_imple
author soto
date Thu, 11 Feb 2021 17:03:31 +0900
parents 959f4b34d6f4
children
line wrap: on
line source

open import nat
module nat_add where
 
_+_ : Nat -> Nat -> Nat
O + m     = m
(S n) + m = S (n + m)