Mercurial > hg > Papers > 2021 > soto-prosym

annotate Paper/src/agda-hoare-satisfies.agda.replaced @ 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 339fb67b4375
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
1 SemComm : Comm !$\rightarrow$! Rel State (Level.zero)
0
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 SemComm Skip = RelOpState.deltaGlob
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 SemComm Abort = RelOpState.emptyRel
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 SemComm (PComm pc) = PrimSemComm pc
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 SemComm (Seq c1 c2) = RelOpState.comp (SemComm c1) (SemComm c2)
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 SemComm (If b c1 c2)
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 = RelOpState.union
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 (RelOpState.comp (RelOpState.delta (SemCond b))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 (SemComm c1))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 (RelOpState.comp (RelOpState.delta (NotP (SemCond b)))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 (SemComm c2))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 SemComm (While b c)
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 = RelOpState.unionInf
5
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
14 (!$\lambda$! (n : $mathbb{N}$) !$\rightarrow$!
0
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 RelOpState.comp (RelOpState.repeat
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 n
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 (RelOpState.comp
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 (RelOpState.delta (SemCond b))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 (SemComm c)))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 (RelOpState.delta (NotP (SemCond b))))
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21
5
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
22 Satisfies : Cond !$\rightarrow$! Comm !$\rightarrow$! Cond !$\rightarrow$! Set
0
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 Satisfies bPre cm bPost
5
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
24 = (s1 : State) !$\rightarrow$! (s2 : State) !$\rightarrow$!
339fb67b4375 INIT rbt.agda
soto <soto@cr.ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
25 SemCond bPre s1 !$\rightarrow$! SemComm cm s1 s2 !$\rightarrow$! SemCond bPost s2