annotate Paper/src/sound-psemcom.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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
1 whileTestPSemSound : (c : !$\mathbb{N}$! ) (output : Envc ) !$\rightarrow$!
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
2 output !$\equiv$! whileTestP c (!$\lambda$! e !$\rightarrow$! e)
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
3 !$\rightarrow$! !$\top$! implies ((vari output !$\equiv$! 0) !$\wedge$! (varn output !$\equiv$! c))
0
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 whileTestPSemSound c output refl = whileTestPSem c