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
Rice Wine
Iris
Commits
cd6ed596
Commit
cd6ed596
authored
Aug 07, 2016
by
Robbert Krebbers
Browse files
Simplify now_True_rvs.
parent
cf62a15f
Changes
2
Hide whitespace changes
Inline
Side-by-side
algebra/upred.v
View file @
cd6ed596
...
...
@@ -1244,7 +1244,7 @@ Proof.
exists
(
y
⋅
x3
)
;
split
;
first
by
rewrite
-
assoc
.
exists
y
;
eauto
using
cmra_includedN_l
.
Qed
.
Lemma
now_True_rvs
P
:
◇
(|=
r
=>
◇
P
)
⊢
(|=
r
=>
◇
P
).
Lemma
now_True_rvs
P
:
◇
(|=
r
=>
P
)
⊢
(|=
r
=>
◇
P
).
Proof
.
rewrite
/
uPred_now_True
.
apply
or_elim
;
auto
using
rvs_mono
.
by
rewrite
-
rvs_intro
-
or_intro_l
.
...
...
proofmode/class_instances.v
View file @
cd6ed596
...
...
@@ -340,7 +340,8 @@ Global Instance is_now_True_later P : IsNowTrue (▷ P).
Proof
.
by
rewrite
/
IsNowTrue
now_True_later
.
Qed
.
Global
Instance
is_now_True_rvs
P
:
IsNowTrue
P
→
IsNowTrue
(|=
r
=>
P
).
Proof
.
rewrite
/
IsNowTrue
=>
HP
.
by
rewrite
-{
2
}
HP
-
now_True_rvs
-(
now_True_intro
P
).
rewrite
/
IsNowTrue
=>
HP
.
by
rewrite
-{
2
}
HP
-(
now_True_idemp
P
)
-
now_True_rvs
-(
now_True_intro
P
).
Qed
.
(* FromViewShift *)
...
...
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