whileTest' : {l : Level} {t : Set l}  !$\rightarrow$! {c10 :  !$\mathbb{N}$! } !$\rightarrow$! (Code : (env : Env)  !$\rightarrow$! ((vari env) !$\equiv$! 0) /\ ((varn env) !$\equiv$! c10) !$\rightarrow$! t) !$\rightarrow$! t
whileTest' {_} {_} {c10} next = next env proof2
  where
    env : Env
    env = record {vari = 0 ; varn = c10}
    proof2 : ((vari env) !$\equiv$! 0) /\ ((varn env) !$\equiv$! c10) -- PostCondition
    proof2 = record {pi1 = refl ; pi2 = refl}