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
George Pirlea
Iris
Commits
2dc55133
Commit
2dc55133
authored
Aug 07, 2017
by
Jacques-Henri Jourdan
Browse files
pure_flip_mono
parent
873f2d0a
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/derived.v
View file @
2dc55133
...
...
@@ -236,6 +236,8 @@ Lemma pure_mono φ1 φ2 : (φ1 → φ2) → ⌜φ1⌝ ⊢ ⌜φ2⌝.
Proof
.
intros
;
apply
pure_elim
with
φ
1
;
eauto
.
Qed
.
Global
Instance
pure_mono'
:
Proper
(
impl
==>
(
⊢
))
(@
uPred_pure
M
).
Proof
.
intros
φ
1
φ
2
;
apply
pure_mono
.
Qed
.
Global
Instance
pure_flip_mono
:
Proper
(
flip
impl
==>
flip
(
⊢
))
(@
uPred_pure
M
).
Proof
.
intros
φ
1
φ
2
;
apply
pure_mono
.
Qed
.
Lemma
pure_iff
φ
1
φ
2
:
(
φ
1
↔
φ
2
)
→
⌜φ
1
⌝
⊣
⊢
⌜φ
2
⌝
.
Proof
.
intros
[??]
;
apply
(
anti_symm
_
)
;
auto
using
pure_mono
.
Qed
.
Lemma
pure_intro_l
φ
Q
R
:
φ
→
(
⌜φ⌝
∧
Q
⊢
R
)
→
Q
⊢
R
.
...
...
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