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
Tej Chajed
iris
Commits
fda5c51c
Commit
fda5c51c
authored
Mar 15, 2017
by
Ralf Jung
Browse files
proof tuning
parent
4e1bdcc7
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/program_logic/ectx_lifting.v
View file @
fda5c51c
...
...
@@ -38,7 +38,7 @@ Lemma wp_lift_pure_head_step {E E' Φ} e1 :
⊢
WP
e1
@
E
{{
Φ
}}.
Proof
using
Hinh
.
iIntros
(??)
"H"
.
iApply
wp_lift_pure_step
;
eauto
.
iMod
"H"
as
"H"
.
iModIntro
.
iNext
.
iMod
"H"
as
"H"
.
iModIntro
.
iMod
"H"
.
iModIntro
.
iNext
.
iMod
"H"
.
iModIntro
.
iIntros
(????).
iApply
"H"
.
eauto
.
Qed
.
...
...
theories/program_logic/lifting.v
View file @
fda5c51c
...
...
@@ -30,11 +30,11 @@ Lemma wp_lift_pure_step `{Inhabited (state Λ)} E E' Φ e1 :
Proof
.
iIntros
(
Hsafe
Hstep
)
"H"
.
iApply
wp_lift_step
.
{
eapply
reducible_not_val
,
(
Hsafe
inhabitant
).
}
iIntros
(
σ
1
)
"Hσ"
.
iMod
"H"
as
"H"
.
iIntros
(
σ
1
)
"Hσ"
.
iMod
"H"
.
iMod
fupd_intro_mask'
as
"Hclose"
;
last
iModIntro
;
first
set_solver
.
iSplit
;
[
done
|]
;
iNext
;
iIntros
(
e2
σ
2
efs
?).
destruct
(
Hstep
σ
1 e2
σ
2
efs
)
;
auto
;
subst
.
iMod
"Hclose"
as
"_"
.
iFrame
"Hσ"
.
iMod
"H"
as
"H"
.
iApply
"H"
;
auto
.
iMod
"Hclose"
as
"_"
.
iFrame
"Hσ"
.
iMod
"H"
.
iApply
"H"
;
auto
.
Qed
.
(* Atomic steps don't need any mask-changing business here, one can
...
...
@@ -66,7 +66,7 @@ Proof.
iIntros
(?
Hpuredet
)
"H"
.
iApply
(
wp_lift_pure_step
E
)
;
try
done
.
{
by
intros
;
eapply
Hpuredet
.
}
(* TODO: Can we make this nicer? iNext for fupd, for example, could help. *)
iMod
"H"
as
"H"
.
iModIntro
.
iNext
.
iMod
"H"
as
"H"
.
iModIntro
.
iMod
"H"
.
iModIntro
.
iNext
.
iMod
"H"
.
iModIntro
.
by
iIntros
(
e'
efs'
σ
(
_
&->&->)%
Hpuredet
).
Qed
.
End
lifting
.
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