view prepaper/src/function.agda @ 14:a63df15c9afc default tip

DONE
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Mon, 15 Feb 2021 23:36:39 +0900
parents 3dba680da508
children
line wrap: on
line source

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