Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Jonas Kastberg
iris
Commits
5fa04408
Commit
5fa04408
authored
Aug 14, 2019
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
update one_shot_once
parent
ffccb508
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
24 additions
and
16 deletions
+24
-16
tests/one_shot_once.ref
tests/one_shot_once.ref
+5
-1
tests/one_shot_once.v
tests/one_shot_once.v
+19
-15
No files found.
tests/one_shot_once.ref
View file @
5fa04408
...
...
@@ -35,5 +35,9 @@
"Hγ" : own γ (Shot m')
--------------------------------------∗
|={⊤ ∖ ↑N}=> ▷ one_shot_inv γ l
∗ WP InjRV #m = InjRV #m' {{ v, ⌜v = #true⌝ ∧ ▷ True }}
∗ WP let: "y'" := InjRV #m' in
match: InjRV #m with
InjL <> => #()
| InjR <> => assert: InjRV #m = "y'"
end {{ _, True }}
tests/one_shot_once.v
View file @
5fa04408
...
...
@@ -15,10 +15,11 @@ Definition one_shot_example : val := λ: <>,
assert
:
CAS
"x"
NONE
(
SOME
"n"
)),
(* check *)
(
λ
:
<>,
let
:
"y"
:
=
!
"x"
in
λ
:
<>,
match
:
"y"
with
NONE
=>
#()
|
SOME
<>
=>
assert
:
"y"
=
!
"x"
end
)).
let
:
"y'"
:
=
!
"x"
in
match
:
"y"
with
NONE
=>
#()
|
SOME
<>
=>
assert
:
"y"
=
"y'"
end
)).
Definition
one_shotR
:
=
csumR
fracR
(
agreeR
ZO
).
Definition
Pending
(
q
:
Qp
)
:
one_shotR
:
=
Cinl
q
.
...
...
@@ -37,6 +38,8 @@ Definition one_shot_inv (γ : gname) (l : loc) : iProp Σ :=
(
l
↦
NONEV
∗
own
γ
(
Pending
(
1
/
2
)%
Qp
)
∨
∃
n
:
Z
,
l
↦
SOMEV
#
n
∗
own
γ
(
Shot
n
))%
I
.
Local
Hint
Extern
0
(
environments
.
envs_entails
_
(
one_shot_inv
_
_
))
=>
unfold
one_shot_inv
.
Lemma
pending_split
γ
q
:
own
γ
(
Pending
q
)
⊣
⊢
own
γ
(
Pending
(
q
/
2
))
∗
own
γ
(
Pending
(
q
/
2
)).
Proof
.
...
...
@@ -86,17 +89,18 @@ Proof.
+
Show
.
iSplit
.
iLeft
;
by
iSplitL
"Hl"
.
eauto
.
+
iSplit
.
iRight
;
iExists
m
;
by
iSplitL
"Hl"
.
eauto
.
}
iSplitL
"Hinv"
;
first
by
eauto
.
iModIntro
.
wp_pures
.
iIntros
"!#"
.
wp_lam
.
iDestruct
"Hv"
as
"[%|Hv]"
;
last
iDestruct
"Hv"
as
(
m
)
"[% Hγ']"
;
subst
;
wp_match
;
[
done
|].
wp_pures
.
iApply
wp_assert
.
wp_bind
(!
_
)%
E
.
iInv
N
as
"[[Hl >Hγ]|H]"
;
last
iDestruct
"H"
as
(
m'
)
"[Hl Hγ]"
.
{
by
iDestruct
(
own_valid_2
with
"Hγ Hγ'"
)
as
%?.
}
wp_load
.
Show
.
iDestruct
(
own_valid_2
with
"Hγ Hγ'"
)
as
%?%
agree_op_invL'
;
subst
.
iModIntro
.
iSplitL
"Hl"
.
{
iNext
;
iRight
;
by
eauto
.
}
wp_pures
.
by
case_bool_decide
.
iModIntro
.
wp_pures
.
iIntros
"!#"
.
wp_lam
.
wp_bind
(!
_
)%
E
.
iInv
N
as
"Hinv"
.
iDestruct
"Hv"
as
"[%|Hv]"
;
last
iDestruct
"Hv"
as
(
m
)
"[% Hγ']"
;
subst
.
+
iDestruct
"Hinv"
as
"[[Hl >Hγ]|H]"
;
last
iDestruct
"H"
as
(
m'
)
"[Hl Hγ]"
;
wp_load
;
iModIntro
;
(
iSplitL
"Hl Hγ"
;
first
by
eauto
with
iFrame
)
;
wp_pures
;
done
.
+
iDestruct
"Hinv"
as
"[[Hl >Hγ]|H]"
;
last
iDestruct
"H"
as
(
m'
)
"[Hl Hγ]"
.
{
by
iDestruct
(
own_valid_2
with
"Hγ Hγ'"
)
as
%?.
}
wp_load
.
Show
.
iDestruct
(
own_valid_2
with
"Hγ Hγ'"
)
as
%?%
agree_op_invL'
;
subst
.
iModIntro
.
iSplitL
"Hl Hγ"
;
first
by
eauto
with
iFrame
.
wp_pures
.
iApply
wp_assert
.
wp_op
.
by
case_bool_decide
.
Qed
.
Lemma
ht_one_shot
(
Φ
:
val
→
iProp
Σ
)
:
...
...
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