view Paper/src/sound-psemcom.agda.replaced @ 14:393c839f987b default tip

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

whileTestPSemSound : (c : !$\mathbb{N}$! ) (output : Envc ) !$\rightarrow$! 
  output !$\equiv$! whileTestP c (!$\lambda$! e !$\rightarrow$! e) 
  !$\rightarrow$! !$\top$! implies ((vari output !$\equiv$! 0) !$\wedge$! (varn output !$\equiv$! c))
whileTestPSemSound c output refl = whileTestPSem c