Mercurial > hg > Papers > 2021 > soto-prosym

view Paper/src/agda-hoare-while.agda @ 14:393c839f987b default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DONE
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sat, 08 Jan 2022 12:41:39 +0900
parents c59202657321
children
line wrap: on
line source

proof1 : HTProof initCond program termCond
proof1 =
  SeqRule {λ e → true} ( PrimRule empty-case )
    $ SeqRule {λ e →  Equal (varn e) 10} ( PrimRule lemma1   )
    $ WeakeningRule {λ e → (Equal (varn e) 10) ∧ (Equal (vari e) 0)}  lemma2 (
      WhileRule {_} {λ e → Equal ((varn e) + (vari e)) 10}
        $ SeqRule (PrimRule {λ e →  whileInv e  ∧ lt zero (varn e) } lemma3 )
        $ PrimRule {whileInv'} {_} {whileInv}  lemma4 ) lemma5