Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Iris
Iris
Commits
3e2fda9e
Commit
3e2fda9e
authored
Aug 29, 2016
by
Janno
Committed by
Robbert Krebbers
Oct 27, 2016
Browse files
Add triple notation for generalized post-condition
parent
c476d109
Changes
5
Hide whitespace changes
Inline
Side-by-side
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