Mercurial > hg > Papers > 2021 > soto-prosym
comparison Paper/src/cbc-hoare-while.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 |
comparison
equal
deleted
inserted
replaced
4:72667e8198e2 | 5:339fb67b4375 |
---|---|
1 whileTestPCallwP' : (c : @$\mathbb{N}$@ ) @$\rightarrow$@ Set | 1 whileTestPCallwP!$\prime$! : (c : !$\mathbb{N}$! ) !$\rightarrow$! Set |
2 whileTestPCallwP' c = whileTestPwP {_} {_} c (@$\lambda$@ env s @$\rightarrow$@ loopPwP' (varn env) env refl (conv env s) ( @$\lambda$@ env s @$\rightarrow$@ vari env @$\equiv$@ c10 env ) ) | 2 whileTestPCallwP!$\prime$! c = whileTestPwP {_} {_} c (!$\lambda$! env s !$\rightarrow$! loopPwP!$\prime$! (varn env) env refl (conv env s) ( !$\lambda$! env s !$\rightarrow$! vari env !$\equiv$! c10 env ) ) |
3 | 3 |
4 | 4 |
5 -- conv : (env : Envc ) @$\rightarrow$@ (vari env @$\equiv$@ 0) @$\wedge$@ (varn env @$\equiv$@ c10 env) @$\rightarrow$@ varn env + vari env @$\equiv$@ c10 env | 5 -- conv : (env : Envc ) !$\rightarrow$! (vari env !$\equiv$! 0) !$\wedge$! (varn env !$\equiv$! c10 env) !$\rightarrow$! varn env + vari env !$\equiv$! c10 env |
6 -- conv e record { pi1 = refl ; pi2 = refl } = +zero | 6 -- conv e record { pi1 = refl ; pi2 = refl } = +zero |