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