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
Jonas Kastberg
iris
Commits
c2b96095
Commit
c2b96095
authored
May 09, 2018
by
Ralf Jung
Browse files
fix iPureIntro when the goal is an absorbing modality
parent
101c4e5d
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/class_instances_bi.v
View file @
c2b96095
...
...
@@ -215,9 +215,12 @@ Proof.
rewrite
{
1
}(
persistent
⌜φ⌝
%
I
)
//.
Qed
.
Global
Instance
from_pure_absorbingly
P
φ
:
FromPure
true
P
φ
→
FromPure
false
(<
absorb
>
P
)
φ
.
Proof
.
rewrite
/
FromPure
=>
<-
/=.
by
rewrite
persistent_absorbingly_affinely
.
Qed
.
Global
Instance
from_pure_absorbingly
P
φ
p
:
FromPure
true
P
φ
→
FromPure
p
(<
absorb
>
P
)
φ
.
Proof
.
rewrite
/
FromPure
=>
<-
/=.
rewrite
persistent_absorbingly_affinely
affinely_if_elim
//.
Qed
.
Global
Instance
from_pure_embed
`
{
BiEmbed
PROP
PROP'
}
a
P
φ
:
FromPure
a
P
φ
→
FromPure
a
⎡
P
⎤
φ
.
Proof
.
rewrite
/
FromPure
=>
<-.
by
rewrite
-
embed_pure
embed_affinely_if_2
.
Qed
.
...
...
theories/tests/proofmode.v
View file @
c2b96095
...
...
@@ -389,6 +389,10 @@ Qed.
Lemma
test_iIntros_pure_neg
:
(
⌜
¬
False
⌝
:
PROP
)%
I
.
Proof
.
by
iIntros
(?).
Qed
.
Lemma
test_iPureIntro_absorbing
(
φ
:
Prop
)
:
φ
→
sbi_emp_valid
(
PROP
:
=
PROP
)
(<
absorb
>
⌜φ⌝
)%
I
.
Proof
.
intros
?.
iPureIntro
.
done
.
Qed
.
Lemma
test_iFrame_later_1
P
Q
:
P
∗
▷
Q
-
∗
▷
(
P
∗
▷
Q
).
Proof
.
iIntros
"H"
.
iFrame
"H"
.
auto
.
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