Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
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
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
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
Rodolphe Lepigre
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
Sidebyside
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