view Paper/src/function.agda @ 0:c59202657321

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

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