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
Fairis
Commits
0ed85b02
Commit
0ed85b02
authored
Feb 02, 2016
by
Robbert Krebbers
Browse files
Solve some boring side-conditions using eauto.
parent
eee527bb
Changes
1
Hide whitespace changes
Inline
Side-by-side
barrier/lifting.v
View file @
0ed85b02
...
...
@@ -24,7 +24,7 @@ Lemma wp_alloc_pst E σ e v Q :
Proof
.
intros
;
set
(
φ
e
'
σ'
ef
:=
∃
l
,
e
'
=
Loc
l
∧
σ'
=
<
[
l
:=
v
]
>
σ
∧
σ
!!
l
=
None
∧
ef
=
(
None
:
option
expr
)).
rewrite
-
(
wp_lift_step
E
E
φ
_
_
σ
)
// /φ; last (by intros; inv_step; eauto)
; []
.
rewrite
-
(
wp_lift_step
E
E
φ
_
_
σ
)
// /φ; last (by intros; inv_step; eauto).
rewrite
-
pvs_intro
.
apply
sep_mono
,
later_mono
;
first
done
.
apply
forall_intro
=>
e2
;
apply
forall_intro
=>
σ
2
;
apply
forall_intro
=>
ef
.
apply
wand_intro_l
.
...
...
@@ -41,9 +41,9 @@ Lemma wp_lift_atomic_det_step {E Q e1} σ1 v2 σ2 :
(
ownP
σ
1
★
▷
(
ownP
σ
2
-
★
Q
v2
))
⊑
wp
E
e1
Q
.
Proof
.
intros
He
Hsafe
Hstep
.
rewrite
-
(
wp_lift_step
E
E
(
λ
e
'
σ'
ef
,
ef
=
None
∧
e
'
=
of_val
v2
∧
σ'
=
σ
2
)
_
e1
σ
1
)
//; last first.
{
intros
.
by
apply
Hstep
,
prim_head_step
.
}
{
by
apply
head_reducible_reducible
.
}
rewrite
-
(
wp_lift_step
E
E
(
λ
e
'
σ'
ef
,
ef
=
None
∧
e
'
=
of_val
v2
∧
σ'
=
σ
2
)
_
e1
σ
1
)
//;
eauto
using
prim_head_step
,
head_reducible_reducible
.
rewrite
-
pvs_intro
.
apply
sep_mono
,
later_mono
;
first
done
.
apply
forall_intro
=>
e2
'
;
apply
forall_intro
=>
σ
2
'
.
apply
forall_intro
=>
ef
;
apply
wand_intro_l
.
...
...
Write
Preview
Supports
Markdown
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