Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
Iris
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
81
Issues
81
List
Boards
Labels
Milestones
Merge Requests
12
Merge Requests
12
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Iris
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
Pipeline
#19075
passed with stage
in 14 minutes and 13 seconds
Changes
2
Pipelines
1
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