view Paper/src/termination.agda.replaced @ 14:ba98083f9853 default tip

FIX
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Fri, 27 May 2022 12:31:39 +0900
parents 14a0e409d574
children
line wrap: on
line source

{-!$\#$! TERMINATING !$\#$!-}
loop : !$\mathbb{N}$! !$\rightarrow$! !$\mathbb{N}$!
loop n = loop (pred n)

-- pred : !$\mathbb{N}$! !$\rightarrow$! !$\mathbb{N}$!
-- pred zero    = zero
-- pred (suc n) = n

stop : !$\mathbb{N}$! !$\rightarrow$! !$\mathbb{N}$!
stop zero = zero
stop (suc n) = (stop n)