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
Rice Wine
Iris
Commits
ddb9ee0e
Commit
ddb9ee0e
authored
Mar 01, 2018
by
Robbert Krebbers
Browse files
Prefer modality over embedding in `iModIntro`.
parent
56f80319
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/class_instances.v
View file @
ddb9ee0e
...
...
@@ -247,37 +247,37 @@ Global Instance from_modal_absorbingly P :
Proof
.
by
rewrite
/
FromModal
/=
-
absorbingly_intro
.
Qed
.
(* When having a modality nested in an embedding, e.g. [ ⎡|==> P⎤ ], we prefer
the
modality
over the
embedding
. *)
the
embedding
over the
modality
. *)
Global
Instance
from_modal_embed
`
{
BiEmbedding
PROP
PROP'
}
(
P
:
PROP
)
:
FromModal
(@
modality_embed
PROP
PROP'
_
_
)
⎡
P
⎤
⎡
P
⎤
P
|
100
.
FromModal
(@
modality_embed
PROP
PROP'
_
_
)
⎡
P
⎤
⎡
P
⎤
P
.
Proof
.
by
rewrite
/
FromModal
.
Qed
.
Global
Instance
from_modal_id_embed
`
{
BiEmbedding
PROP
PROP'
}
`
(
sel
:
A
)
P
Q
:
FromModal
modality_id
sel
P
Q
→
FromModal
modality_id
sel
⎡
P
⎤
⎡
Q
⎤
.
FromModal
modality_id
sel
⎡
P
⎤
⎡
Q
⎤
|
100
.
Proof
.
by
rewrite
/
FromModal
/=
=><-.
Qed
.
Global
Instance
from_modal_affinely_embed
`
{
BiEmbedding
PROP
PROP'
}
`
(
sel
:
A
)
P
Q
:
FromModal
modality_affinely
sel
P
Q
→
FromModal
modality_affinely
sel
⎡
P
⎤
⎡
Q
⎤
.
FromModal
modality_affinely
sel
⎡
P
⎤
⎡
Q
⎤
|
100
.
Proof
.
rewrite
/
FromModal
/=
=><-.
by
rewrite
bi_embed_affinely
.
Qed
.
Global
Instance
from_modal_persistently_embed
`
{
BiEmbedding
PROP
PROP'
}
`
(
sel
:
A
)
P
Q
:
FromModal
modality_persistently
sel
P
Q
→
FromModal
modality_persistently
sel
⎡
P
⎤
⎡
Q
⎤
.
FromModal
modality_persistently
sel
⎡
P
⎤
⎡
Q
⎤
|
100
.
Proof
.
rewrite
/
FromModal
/=
=><-.
by
rewrite
bi_embed_persistently
.
Qed
.
Global
Instance
from_modal_affinely_persistently_embed
`
{
BiEmbedding
PROP
PROP'
}
`
(
sel
:
A
)
P
Q
:
FromModal
modality_affinely_persistently
sel
P
Q
→
FromModal
modality_affinely_persistently
sel
⎡
P
⎤
⎡
Q
⎤
.
FromModal
modality_affinely_persistently
sel
⎡
P
⎤
⎡
Q
⎤
|
100
.
Proof
.
rewrite
/
FromModal
/=
=><-.
by
rewrite
bi_embed_affinely
bi_embed_persistently
.
Qed
.
Global
Instance
from_modal_plainly_embed
`
{
BiEmbedding
PROP
PROP'
}
`
(
sel
:
A
)
P
Q
:
FromModal
modality_plainly
sel
P
Q
→
FromModal
modality_plainly
sel
⎡
P
⎤
⎡
Q
⎤
.
FromModal
modality_plainly
sel
⎡
P
⎤
⎡
Q
⎤
|
100
.
Proof
.
rewrite
/
FromModal
/=
=><-.
by
rewrite
bi_embed_plainly
.
Qed
.
Global
Instance
from_modal_affinely_plainly_embed
`
{
BiEmbedding
PROP
PROP'
}
`
(
sel
:
A
)
P
Q
:
FromModal
modality_affinely_plainly
sel
P
Q
→
FromModal
modality_affinely_plainly
sel
⎡
P
⎤
⎡
Q
⎤
.
FromModal
modality_affinely_plainly
sel
⎡
P
⎤
⎡
Q
⎤
|
100
.
Proof
.
rewrite
/
FromModal
/=
=><-.
by
rewrite
bi_embed_affinely
bi_embed_plainly
.
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