view src/function.agda @ 1:73127e0ab57c

(none)
author soto@cr.ie.u-ryukyu.ac.jp
date Tue, 08 Sep 2020 18:38:08 +0900
parents
children
line wrap: on
line source

_-_ :ℕ →ℕ →ℕ
x - zero  = x
zero - _  = zero
(suc x) - (suc y)  = x - y