Mercurial > hg > Papers > 2020 > ryokka-master

comparison paper/src/term3.agda.replaced @ 4:b5fffa8ae875

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix chapter hoare
author ryokka
date Wed, 29 Jan 2020 22:36:17 +0900
parents c7acb9211784
children
comparison
equal deleted inserted replaced
3:a6f371a5d33d 4:b5fffa8ae875
1 lemma1 : {c10 :@$\mathbb{N}$@} → Axiom (stmt1Cond {c10}) (@$\lambda$@ env → record { varn = varn env ; vari = 0 }) (stmt2Cond {c\ 1 lemma1 : {c10 :@$\mathbb{N}$@} @$\rightarrow$@ Axiom (stmt1Cond {c10}) (@$\lambda$@ env @$\rightarrow$@ record { varn = varn env ; vari = 0 }) (stmt2Cond {c\
2 10}) 2 10})
3 lemma1 {c10} env = impl@$\Rightarrow$@ ( @$\lambda$@ cond → let open @$\equiv$@-Reasoning in 3 lemma1 {c10} env = impl@$\Rightarrow$@ ( @$\lambda$@ cond @$\rightarrow$@ let open @$\equiv$@-Reasoning in
4 begin 4 begin
5 (Equal (varn env) c10 ) @$\wedge$@ true 5 (Equal (varn env) c10 ) @$\wedge$@ true
6 @$\equiv$@@$\langle$@ @$\wedge$@true @$\rangle$@ 6 @$\equiv$@@$\langle$@ @$\wedge$@true @$\rangle$@
7 Equal (varn env) c10 7 Equal (varn env) c10
8 @$\equiv$@@$\langle$@ cond @$\rangle$@ 8 @$\equiv$@@$\langle$@ cond @$\rangle$@