Mercurial > hg > Papers > 2022 > soto-sigos
comparison Paper/src/agda-hoare-while.agda.replaced @ 0:14a0e409d574
ADD fast commit
author | soto <soto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 24 Apr 2022 23:13:44 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:14a0e409d574 |
---|---|
1 proof1 : HTProof initCond program termCond | |
2 proof1 = | |
3 SeqRule {!$\lambda$! e !$\rightarrow$! true} ( PrimRule empty-case ) | |
4 $ SeqRule {!$\lambda$! e !$\rightarrow$! Equal (varn e) 10} ( PrimRule lemma1 ) | |
5 $ WeakeningRule {!$\lambda$! e !$\rightarrow$! (Equal (varn e) 10) !$\wedge$! (Equal (vari e) 0)} lemma2 ( | |
6 WhileRule {_} {!$\lambda$! e !$\rightarrow$! Equal ((varn e) + (vari e)) 10} | |
7 $ SeqRule (PrimRule {!$\lambda$! e !$\rightarrow$! whileInv e !$\wedge$! lt zero (varn e) } lemma3 ) | |
8 $ PrimRule {whileInv!$\prime$!} {_} {whileInv} lemma4 ) lemma5 |