Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dan Frumin
iris-coq
Commits
7c4416b6
Commit
7c4416b6
authored
Jun 23, 2016
by
Robbert Krebbers
Browse files
Let wp_store to a wp_seq if possible.
parent
e78a78ab
Changes
3
Hide whitespace changes
Inline
Side-by-side
heap_lang/proofmode.v
View file @
7c4416b6
...
...
@@ -148,7 +148,7 @@ Tactic Notation "wp_store" :=
|
let
l
:=
match
goal
with
|-
_
=
Some
(
_
,
(
?
l
↦
{
_
}
_
)
%
I
)
=>
l
end
in
iAssumptionCore
||
fail
"wp_store: cannot find"
l
"↦ ?"
|
env_cbv
;
reflexivity
|
wp_finish
]
|
wp_finish
;
try
wp_seq
]
|
_
=>
fail
"wp_store: not a 'wp'"
end
.
...
...
tests/barrier_client.v
View file @
7c4416b6
...
...
@@ -45,7 +45,7 @@ Section client.
iApply
(
wp_par
heapN
N
(
λ
_
,
True
%
I
)
(
λ
_
,
True
%
I
));
first
done
.
iFrame
"Hh"
.
iSplitL
"Hy Hs"
.
-
(
*
The
original
thread
,
the
sender
.
*
)
wp_store
.
wp_seq
.
iApply
signal_spec
;
iFrame
"Hs"
;
iSplit
;
[
|
done
].
wp_store
.
iApply
signal_spec
;
iFrame
"Hs"
;
iSplit
;
[
|
done
].
iExists
_
;
iSplitL
;
[
done
|
].
iAlways
;
iIntros
{
n
}
.
wp_let
.
by
wp_op
.
-
(
*
The
two
spawned
threads
,
the
waiters
.
*
)
iSplitL
;
[
|
by
iIntros
{
_
_
}
"_ >"
].
...
...
tests/heap_lang.v
View file @
7c4416b6
...
...
@@ -27,7 +27,7 @@ Section LiftingTests.
nclose
N
⊆
E
→
heap_ctx
N
⊢
WP
heap_e
@
E
{{
v
,
v
=
#
2
}}
.
Proof
.
iIntros
{
HN
}
"#?"
.
rewrite
/
heap_e
.
iApply
(
wp_mask_weaken
N
);
first
done
.
wp_alloc
l
.
wp_let
.
wp_load
.
wp_op
.
wp_store
.
wp_seq
.
by
wp_load
.
wp_alloc
l
.
wp_let
.
wp_load
.
wp_op
.
wp_store
.
by
wp_load
.
Qed
.
Definition
heap_e2
:
expr
[]
:=
...
...
@@ -39,7 +39,7 @@ Section LiftingTests.
Proof
.
iIntros
{
HN
}
"#?"
.
rewrite
/
heap_e2
.
iApply
(
wp_mask_weaken
N
);
first
done
.
wp_alloc
l
.
wp_let
.
wp_alloc
l
'
.
wp_let
.
wp_load
.
wp_op
.
wp_store
.
wp_seq
.
wp_load
.
done
.
wp_load
.
wp_op
.
wp_store
.
wp_load
.
done
.
Qed
.
Definition
FindPred
:
val
:=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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