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
Tej Chajed
iris
Commits
34037c0f
Commit
34037c0f
authored
Jul 25, 2016
by
Robbert Krebbers
Browse files
Simplify TimelessElim class.
parent
453a3791
Changes
3
Hide whitespace changes
Inline
Side-by-side
proofmode/classes.v
View file @
34037c0f
...
...
@@ -314,5 +314,5 @@ Global Instance into_exist_always {A} P (Φ : A → uPred M) :
Proof
.
rewrite
/
IntoExist
=>
HP
.
by
rewrite
HP
always_exist
.
Qed
.
Class
TimelessElim
(
Q
:
uPred
M
)
:
=
timeless_elim
`
{!
TimelessP
P
}
R
:
(
R
⊢
Q
)
→
▷
P
★
(
P
-
★
R
)
⊢
Q
.
timeless_elim
`
{!
TimelessP
P
}
:
▷
P
★
(
P
-
★
Q
)
⊢
Q
.
End
classes
.
proofmode/coq_tactics.v
View file @
34037c0f
...
...
@@ -382,7 +382,7 @@ Lemma tac_timeless Δ Δ' i p P Q :
(
Δ
'
⊢
Q
)
→
Δ
⊢
Q
.
Proof
.
intros
????
HQ
.
rewrite
envs_simple_replace_sound
//
;
simpl
.
rewrite
always_if_later
right_id
.
by
apply
timeless_elim
.
by
rewrite
always_if_later
right_id
HQ
timeless_elim
.
Qed
.
(** * Always *)
...
...
proofmode/pviewshifts.v
View file @
34037c0f
...
...
@@ -32,8 +32,8 @@ Proof. rewrite /IntoWand=>->. apply wand_intro_l. by rewrite pvs_wand_r. Qed.
Global
Instance
timeless_elim_pvs
E1
E2
Q
:
TimelessElim
(|={
E1
,
E2
}=>
Q
).
Proof
.
intros
P
?
R
HR
.
rewrite
(
pvs_timeless
E1
P
)
pvs_frame_r
.
by
rewrite
wand_elim_r
HR
pvs_trans
;
last
set_solver
.
intros
P
?.
rewrite
(
pvs_timeless
E1
P
)
pvs_frame_r
.
by
rewrite
wand_elim_r
pvs_trans
;
last
set_solver
.
Qed
.
Class
IsFSA
{
A
}
(
P
:
iProp
Λ
Σ
)
(
E
:
coPset
)
...
...
@@ -57,7 +57,7 @@ Qed.
Global
Instance
timeless_elim_fsa
{
A
}
Q
E
(
fsa
:
FSA
Λ
Σ
A
)
fsaV
Φ
:
IsFSA
Q
E
fsa
fsaV
Φ
→
TimelessElim
Q
.
Proof
.
intros
?
P
?
R
.
rewrite
(
is_fsa
Q
)
-{
2
}
fsa_pvs_fsa
.
intros
<-.
intros
?
P
?.
rewrite
(
is_fsa
Q
)
-{
2
}
fsa_pvs_fsa
.
by
rewrite
(
pvs_timeless
_
P
)
pvs_frame_r
wand_elim_r
.
Qed
.
...
...
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