Mercurial > hg > Papers > 2021 > soto-thesis

annotate prepaper/src/whileConvPSemSound.agda.replaced @ 14:a63df15c9afc default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DONE
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Mon, 15 Feb 2021 23:36:39 +0900
parents 3dba680da508
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3dba680da508 init-test
soto
parents:
diff changeset
1 whileConvPSemSound : {l : Level} @$\rightarrow$@ (input : Envc) @$\rightarrow$@ ((vari input @$\equiv$@ 0) @$\wedge$@ (varn input @$\equiv$@ c)) implies (varn input + vari input @$\equiv$@ c10 input)
3dba680da508 init-test
soto
parents:
diff changeset
2 whileConvPSemSound input = proof @$\lambda$@ x @$\rightarrow$@ (conversion input x) where
3dba680da508 init-test
soto
parents:
diff changeset
3 conversion : (env : Envc ) @$\rightarrow$@ (vari env @$\equiv$@ 0) @$\wedge$@ (varn env @$\equiv$@ c10 env) @$\rightarrow$@ varn env + vari env @$\equiv$@ c10 env
3dba680da508 init-test
soto
parents:
diff changeset
4 conversion e record { pi1 = refl ; pi2 = refl } = +zero