Mercurial > hg > Papers > 2020 > soto-midterm

annotate src/agda-hoare-satisfies.agda @ 1:73127e0ab57c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(none)
author soto@cr.ie.u-ryukyu.ac.jp
date Tue, 08 Sep 2020 18:38:08 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
1 SemComm : Comm -> Rel State (Level.zero)
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
2 SemComm Skip = RelOpState.deltaGlob
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
3 SemComm Abort = RelOpState.emptyRel
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
4 SemComm (PComm pc) = PrimSemComm pc
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
5 SemComm (Seq c1 c2) = RelOpState.comp (SemComm c1) (SemComm c2)
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
6 SemComm (If b c1 c2)
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
7 = RelOpState.union
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
8 (RelOpState.comp (RelOpState.delta (SemCond b))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
9 (SemComm c1))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
10 (RelOpState.comp (RelOpState.delta (NotP (SemCond b)))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
11 (SemComm c2))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
12 SemComm (While b c)
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
13 = RelOpState.unionInf
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
14 (λ (n : $mathbb{N}$) ->
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
15 RelOpState.comp (RelOpState.repeat
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
16 n
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
17 (RelOpState.comp
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
18 (RelOpState.delta (SemCond b))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
19 (SemComm c)))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
20 (RelOpState.delta (NotP (SemCond b))))
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
21
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
22 Satisfies : Cond -> Comm -> Cond -> Set
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
23 Satisfies bPre cm bPost
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
24 = (s1 : State) -> (s2 : State) ->
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
25 SemCond bPre s1 -> SemComm cm s1 s2 -> SemCond bPost s2