view Paper/src/cbc-hoare-SoundnessC.agda @ 14:393c839f987b default tip

DONE
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sat, 08 Jan 2022 12:41:39 +0900
parents c59202657321
children
line wrap: on
line source

whileCallwP : (c : ℕ) → whileTestPCallwP' c
whileCallwP c = whileTestPwP {_} {_} c
  (λ env s → loopHelper c (record { c10 = c ; varn = c ; vari = zero }) refl +zero)