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
35769f67
Commit
35769f67
authored
Dec 03, 2017
by
Robbert Krebbers
Browse files
Instance for `Absorbing (P → Q)`.
Note sure whether these premises are the weakest possible.
parent
249edc6c
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/bi/derived.v
View file @
35769f67
...
...
@@ -1689,6 +1689,13 @@ Global Instance exist_absorbing {A} (Φ : A → PROP) :
(
∀
x
,
Absorbing
(
Φ
x
))
→
Absorbing
(
∃
x
,
Φ
x
).
Proof
.
rewrite
/
Absorbing
=>
?.
rewrite
absorbingly_exist
.
auto
using
exist_mono
.
Qed
.
Global
Instance
impl_absorbing
P
Q
:
Persistent
P
→
Absorbing
P
→
Absorbing
Q
→
Absorbing
(
P
→
Q
).
Proof
.
intros
.
rewrite
/
Absorbing
.
apply
impl_intro_l
.
rewrite
persistent_and_affinely_sep_l_1
absorbingly_sep_r
.
by
rewrite
-
persistent_and_affinely_sep_l
impl_elim_r
.
Qed
.
Global
Instance
internal_eq_absorbing
{
A
:
ofeT
}
(
x
y
:
A
)
:
Absorbing
(
x
≡
y
:
PROP
)%
I
.
Proof
.
by
rewrite
/
Absorbing
absorbingly_internal_eq
.
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