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
Iris
Iris
Commits
1addf2ac
Commit
1addf2ac
authored
Jan 27, 2018
by
Jacques-Henri Jourdan
Browse files
Support framing pure facts and equalities under an embedding.
parent
379aa18e
Pipeline
#6462
passed with stages
in 3 minutes and 43 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/class_instances.v
View file @
1addf2ac
...
...
@@ -838,6 +838,13 @@ Proof.
rewrite
/
Frame
/
MakeEmbed
=>
<-
<-.
rewrite
bi_embed_sep
bi_embed_affinely_if
bi_embed_persistently_if
=>
//.
Qed
.
Global
Instance
frame_pure_embed
`
{
BiEmbedding
PROP
PROP'
}
p
P
Q
(
Q'
:
PROP'
)
φ
:
Frame
p
⌜φ⌝
P
Q
→
MakeEmbed
Q
Q'
→
Frame
p
⌜φ⌝
⎡
P
⎤
Q'
.
Proof
.
rewrite
/
Frame
/
MakeEmbed
-
bi_embed_pure
.
apply
(
frame_embed
p
P
Q
).
Qed
.
Global
Instance
frame_eq_embed
`
{
BiEmbedding
PROP
PROP'
}
p
P
Q
(
Q'
:
PROP'
)
{
A
:
ofeT
}
(
a
b
:
A
)
:
Frame
p
(
a
≡
b
)
P
Q
→
MakeEmbed
Q
Q'
→
Frame
p
(
a
≡
b
)
⎡
P
⎤
Q'
.
Proof
.
rewrite
/
Frame
/
MakeEmbed
-
bi_embed_internal_eq
.
apply
(
frame_embed
p
P
Q
).
Qed
.
Class
MakeSep
(
P
Q
PQ
:
PROP
)
:
=
make_sep
:
P
∗
Q
⊣
⊢
PQ
.
Arguments
MakeSep
_
%
I
_
%
I
_
%
I
.
...
...
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