Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
Iris
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Pierre-Marie Pédrot
Iris
Commits
3e2fda9e
Commit
3e2fda9e
authored
Aug 29, 2016
by
Janno
Committed by
Robbert Krebbers
Oct 27, 2016
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add triple notation for generalized post-condition
parent
c476d109
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
25 additions
and
13 deletions
+25
-13
heap_lang/lib/barrier/proof.v
heap_lang/lib/barrier/proof.v
+11
-10
heap_lang/lib/barrier/specification.v
heap_lang/lib/barrier/specification.v
+1
-1
program_logic/weakestpre.v
program_logic/weakestpre.v
+11
-0
tests/barrier_client.v
tests/barrier_client.v
+1
-1
tests/joining_existentials.v
tests/joining_existentials.v
+1
-1
No files found.
heap_lang/lib/barrier/proof.v
View file @
3e2fda9e
...
...
@@ -91,11 +91,11 @@ Proof.
Qed
.
(** Actual proofs *)
Lemma
newbarrier_spec
(
P
:
iProp
Σ
)
(
Φ
:
val
→
iProp
Σ
)
:
Lemma
newbarrier_spec
(
P
:
iProp
Σ
)
:
heapN
⊥
N
→
heap_ctx
★
(
∀
l
,
recv
l
P
★
send
l
P
-
★
Φ
#
l
)
⊢
WP
newbarrier
#()
{{
Φ
}}.
{{{
heap_ctx
}}}
newbarrier
#()
{{{
l
;
#
l
,
recv
l
P
★
send
l
P
}
}}.
Proof
.
iIntros
(
HN
)
"[#? HΦ]"
.
iIntros
(
HN
Φ
)
"[#? HΦ]"
.
rewrite
/
newbarrier
/=.
wp_seq
.
wp_alloc
l
as
"Hl"
.
iApply
(
"HΦ"
with
">[-]"
).
iMod
(
saved_prop_alloc
(
F
:
=
idCF
)
P
)
as
(
γ
)
"#?"
.
...
...
@@ -117,14 +117,15 @@ Proof.
-
auto
.
Qed
.
Lemma
signal_spec
l
P
(
Φ
:
val
→
iProp
Σ
)
:
send
l
P
★
P
★
Φ
#()
⊢
WP
signal
#
l
{{
Φ
}}.
Lemma
signal_spec
l
P
:
{{{
send
l
P
★
P
}}}
signal
#
l
{{{
;
#(),
True
}
}}.
Proof
.
rewrite
/
signal
/
send
/
barrier_ctx
/=.
iIntros
"(Hs&HP
&HΦ)"
;
iDestruct
"Hs"
as
(
γ
)
"[#(%&Hh&Hsts) Hγ]"
.
wp_let
.
iIntros
(
Φ
)
"((Hs&HP)
&HΦ)"
;
iDestruct
"Hs"
as
(
γ
)
"[#(%&Hh&Hsts) Hγ]"
.
wp_let
.
iMod
(
sts_openS
(
barrier_inv
l
P
)
_
_
γ
with
"[Hγ]"
)
as
([
p
I
])
"(% & [Hl Hr] & Hclose)"
;
eauto
.
destruct
p
;
[|
done
].
wp_store
.
iFrame
"HΦ"
.
destruct
p
;
[|
done
].
wp_store
.
iSpecialize
(
"HΦ"
with
"[#]"
)
=>
//.
iFrame
"HΦ"
.
iMod
(
"Hclose"
$!
(
State
High
I
)
(
∅
:
set
token
)
with
"[-]"
)
;
last
done
.
iSplit
;
[
iPureIntro
;
by
eauto
using
signal_step
|].
iNext
.
rewrite
{
2
}/
barrier_inv
/
ress
/=
;
iFrame
"Hl"
.
...
...
@@ -132,11 +133,11 @@ Proof.
iNext
.
iIntros
"_"
;
by
iApply
"Hr"
.
Qed
.
Lemma
wait_spec
l
P
(
Φ
:
val
→
iProp
Σ
)
:
recv
l
P
★
(
P
-
★
Φ
#())
⊢
WP
wait
#
l
{{
Φ
}}.
Lemma
wait_spec
l
P
:
{{{
recv
l
P
}}}
wait
#
l
{{{
;
#(),
P
}
}}.
Proof
.
rename
P
into
R
;
rewrite
/
recv
/
barrier_ctx
.
iIntros
"[Hr HΦ]"
;
iDestruct
"Hr"
as
(
γ
P
Q
i
)
"(#(%&Hh&Hsts)&Hγ&#HQ&HQR)"
.
iIntros
(
Φ
)
"[Hr HΦ]"
;
iDestruct
"Hr"
as
(
γ
P
Q
i
)
"(#(%&Hh&Hsts)&Hγ&#HQ&HQR)"
.
iL
ö
b
as
"IH"
.
wp_rec
.
wp_bind
(!
_
)%
E
.
iMod
(
sts_openS
(
barrier_inv
l
P
)
_
_
γ
with
"[Hγ]"
)
as
([
p
I
])
"(% & [Hl Hr] & Hclose)"
;
eauto
.
...
...
heap_lang/lib/barrier/specification.v
View file @
3e2fda9e
...
...
@@ -21,7 +21,7 @@ Proof.
exists
(
λ
l
,
CofeMor
(
recv
N
l
)),
(
λ
l
,
CofeMor
(
send
N
l
)).
split_and
?
;
simpl
.
-
iIntros
(
P
)
"#? !# _"
.
iApply
(
newbarrier_spec
_
P
)
;
eauto
.
-
iIntros
(
l
P
)
"!# [Hl HP]"
.
by
iApply
signal_spec
;
iFrame
"Hl HP"
.
-
iIntros
(
l
P
)
"!# [Hl HP]"
.
iApply
signal_spec
;
iFrame
"Hl HP"
;
by
eauto
.
-
iIntros
(
l
P
)
"!# Hl"
.
iApply
wait_spec
;
iFrame
"Hl"
;
eauto
.
-
iIntros
(
l
P
Q
)
"!#"
.
by
iApply
recv_split
.
-
apply
recv_weaken
.
...
...
program_logic/weakestpre.v
View file @
3e2fda9e
...
...
@@ -50,6 +50,17 @@ Notation "'WP' e {{ v , Q } }" := (wp ⊤ e%E (λ v, Q))
(
at
level
20
,
e
,
Q
at
level
200
,
format
"'WP' e {{ v , Q } }"
)
:
uPred_scope
.
Notation
"'{{{' pre } } } e {{{ x .. y ; pat , post } } }"
:
=
(
∀
(
ψ
:
_
→
uPred
_
),
(
pre
★
(
∀
x
,
..
(
∀
y
,
post
-
★
ψ
(
pat
)%
V
)
..
)%
I
)
⊢
WP
e
{{
ψ
}})
(
at
level
20
,
x
closed
binder
,
y
closed
binder
,
format
"{{{ pre } } } e {{{ x .. y ; pat , post } } }"
)
:
C_scope
.
Notation
"'{{{' pre } } } e {{{ ; pat , post } } }"
:
=
(
∀
(
ψ
:
_
→
uPred
_
),
(
pre
★
(
post
-
★
ψ
(
pat
)%
V
)%
I
)
⊢
WP
e
{{
ψ
}})
(
at
level
20
,
format
"{{{ pre } } } e {{{ ; pat , post } } }"
)
:
C_scope
.
Section
wp
.
Context
`
{
irisG
Λ
Σ
}.
Implicit
Types
P
:
iProp
Σ
.
...
...
tests/barrier_client.v
View file @
3e2fda9e
...
...
@@ -43,7 +43,7 @@ Section client.
iApply
(
wp_par
(
λ
_
,
True
%
I
)
(
λ
_
,
True
%
I
)).
iFrame
"Hh"
.
iSplitL
"Hy Hs"
.
-
(* The original thread, the sender. *)
wp_store
.
iApply
signal_spec
;
iFrame
"Hs"
;
iSplit
;
[|
done
].
wp_store
.
iApply
signal_spec
;
iFrame
"Hs"
;
iSplit
L
"Hy"
;
[|
by
eauto
].
iExists
_;
iSplitL
;
[
done
|].
iAlways
;
iIntros
(
n
).
wp_let
.
by
wp_op
.
-
(* The two spawned threads, the waiters. *)
iSplitL
;
[|
by
iIntros
(
_
_
)
"_ !>"
].
...
...
tests/joining_existentials.v
View file @
3e2fda9e
...
...
@@ -85,7 +85,7 @@ Proof.
iIntros
(
v
)
"HP"
;
iDestruct
"HP"
as
(
x
)
"HP"
.
wp_let
.
iMod
(
own_update
with
"Hγ"
)
as
"Hx"
.
{
by
apply
(
cmra_update_exclusive
(
Shot
x
)).
}
iApply
signal_spec
;
iFrame
"Hs"
;
iSplit
;
last
done
.
iApply
signal_spec
;
iFrame
"Hs"
;
iSplit
R
""
;
last
auto
.
iExists
x
;
auto
.
-
iDestruct
(
recv_weaken
with
"[] Hr"
)
as
"Hr"
;
first
by
iApply
P_res_split
.
iMod
(
recv_split
with
"Hr"
)
as
"[H1 H2]"
;
first
done
.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment