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
f2450784
Commit
f2450784
authored
Aug 24, 2016
by
Robbert Krebbers
Browse files
Put now_True_rvs near derived properties (since it _is_ derived).
parent
1c0a0e04
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/upred.v
View file @
f2450784
...
...
@@ -1181,11 +1181,6 @@ 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
).
Proof
.
rewrite
/
uPred_now_True
.
apply
or_elim
;
auto
using
rvs_mono
.
by
rewrite
-
rvs_intro
-
or_intro_l
.
Qed
.
(** * Derived rules *)
Global
Instance
rvs_mono'
:
Proper
((
⊢
)
==>
(
⊢
))
(@
uPred_rvs
M
).
...
...
@@ -1205,6 +1200,11 @@ Proof.
intros
;
rewrite
(
rvs_ownM_updateP
_
(
y
=))
;
last
by
apply
cmra_update_updateP
.
by
apply
rvs_mono
,
exist_elim
=>
y'
;
apply
pure_elim_l
=>
->.
Qed
.
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
.
Qed
.
(* Products *)
Lemma
prod_equivI
{
A
B
:
cofeT
}
(
x
y
:
A
*
B
)
:
x
≡
y
⊣
⊢
x
.
1
≡
y
.
1
∧
x
.
2
≡
y
.
2
.
...
...
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