Mercurial > hg > Papers > 2021 > soto-prosym
view Paper/src/while_loop_verif/init_cg.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 | 9176dff8f38a |
children |
line wrap: on
line source
whileTest!$\prime$! : {l : Level} {t : Set l} !$\rightarrow$! {c10 : !$\mathbb{N}$! } !$\rightarrow$! (Code : (env : Env) !$\rightarrow$! ((vari env) !$\equiv$! 0) !$\wedge$! ((varn env) !$\equiv$! c10) !$\rightarrow$! t) !$\rightarrow$! t whileTest!$\prime$! {_} {_} {c10} next = next env proof2 where env : Env env = record {vari = 0 ; varn = c10} proof2 : ((vari env) !$\equiv$! 0) !$\wedge$! ((varn env) !$\equiv$! c10) -- PostCondition proof2 = record {pi1 = refl ; pi2 = refl}