view Paper/src/cbc-hoare-SoundnessC.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

whileCallwP : (c : !$\mathbb{N}$!) !$\rightarrow$! whileTestPCallwP!$\prime$! c
whileCallwP c = whileTestPwP {_} {_} c
  (!$\lambda$! env s !$\rightarrow$! loopHelper c (record { c10 = c ; varn = c ; vari = zero }) refl +zero)