annotate Paper/src/sound-loop.agda.replaced @ 0:c59202657321

init
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Tue, 02 Nov 2021 06:55:58 +0900
parents
children 339fb67b4375
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 loopPPSem : (input output : Envc ) @$\rightarrow$@ output @$\equiv$@ loopPP (varn input) input refl
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 @$\rightarrow$@ (varn input + vari input @$\equiv$@ c10 input )
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 @$\rightarrow$@ (varn input + vari input @$\equiv$@ c10 input ) implies (vari output @$\equiv$@ c10 output)
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 loopPPSem input output refl s2p = loopPPSemInduct (varn input) input refl refl s2p