Skip to content
GitLab
Menu
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
7dcb3217
Commit
7dcb3217
authored
Feb 22, 2018
by
Robbert Krebbers
Browse files
Support `AIEnvId` for the spatial context.
parent
74cf33ae
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/classes.v
View file @
7dcb3217
...
...
@@ -134,7 +134,7 @@ Record always_modality_mixin {PROP : bi} (M : PROP → PROP)
|
AIEnvForall
C
=>
∀
P
,
C
P
→
P
⊢
M
P
|
AIEnvTransform
C
=>
(
∀
P
Q
,
C
P
Q
→
P
⊢
M
Q
)
|
AIEnvClear
=>
∀
P
,
Absorbing
(
M
P
)
|
AIEnvId
=>
False
|
AIEnvId
=>
∀
P
,
P
⊢
M
P
end
;
always_modality_mixin_emp
:
emp
⊢
M
emp
;
always_modality_mixin_mono
P
Q
:
(
P
⊢
Q
)
→
M
P
⊢
M
Q
;
...
...
@@ -175,8 +175,8 @@ Section always_modality.
Lemma
always_modality_spatial_clear
P
:
always_modality_spatial_spec
M
=
AIEnvClear
→
Absorbing
(
M
P
).
Proof
.
destruct
M
as
[???
[]]
;
naive_solver
.
Qed
.
Lemma
always_modality_spatial_id
:
always_modality_spatial_spec
M
≠
AIEnvId
.
Lemma
always_modality_spatial_id
P
:
always_modality_spatial_spec
M
=
AIEnvId
→
P
⊢
M
P
.
Proof
.
destruct
M
as
[???
[]]
;
naive_solver
.
Qed
.
Lemma
always_modality_emp
:
emp
⊢
M
emp
.
...
...
theories/proofmode/coq_tactics.v
View file @
7dcb3217
...
...
@@ -720,7 +720,8 @@ Proof.
eauto
using
always_modality_spatial_transform
.
+
rewrite
-
HQ'
/=
right_id
comm
-{
2
}(
always_modality_spatial_clear
M
)
//.
by
rewrite
(
True_intro
([
∗
]
Γ
s
)%
I
).
+
by
destruct
(
always_modality_spatial_id
M
).
+
rewrite
-
HQ'
{
1
}(
always_modality_spatial_id
M
([
∗
]
Γ
s'
)%
I
)
//.
by
rewrite
-
always_modality_sep
.
Qed
.
Lemma
tac_persistent
Δ
Δ
'
i
p
P
P'
Q
:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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