view Paper/src/termination.agda.replaced @ 5:339fb67b4375

INIT rbt.agda
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sun, 07 Nov 2021 00:51:16 +0900
parents c59202657321
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)