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
Rodolphe Lepigre
Iris
Commits
65e4effa
Commit
65e4effa
authored
Feb 21, 2016
by
Ralf Jung
Browse files
prove pvs_sep
parent
e080934d
Changes
1
Hide whitespace changes
Inline
Side-by-side
program_logic/pviewshifts.v
View file @
65e4effa
...
...
@@ -159,6 +159,9 @@ Proof. intros ->. rewrite pvs_frame_l. apply pvs_mono, wand_elim_l. Qed.
Lemma
pvs_wand_r
E1
E2
P
Q
R
:
P
⊑
(|={
E1
,
E2
}=>
Q
)
→
(
P
★
(
Q
-
★
R
))
⊑
(|={
E1
,
E2
}=>
R
).
Proof
.
rewrite
comm
.
apply
pvs_wand_l
.
Qed
.
Lemma
pvs_sep
E
P
Q
:
((|={
E
}=>
P
)
★
(|={
E
}=>
Q
))
⊑
(|={
E
}=>
P
★
Q
).
Proof
.
rewrite
pvs_frame_r
pvs_frame_l
pvs_trans
//.
set_solver
.
Qed
.
Lemma
pvs_mask_frame'
E1
E1'
E2
E2'
P
:
E1'
⊆
E1
→
E2'
⊆
E2
→
E1
∖
E1'
=
E2
∖
E2'
→
...
...
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