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
Dan Frumin
iris-coq
Commits
388fef2b
Commit
388fef2b
authored
May 31, 2016
by
Robbert Krebbers
Browse files
Later stripping for big_ops.
parent
f70294b1
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/upred_tactics.v
View file @
388fef2b
From
iris
.
prelude
Require
Import
gmap
.
From
iris
.
algebra
Require
Export
upred
.
From
iris
.
algebra
Require
Export
upred_big_op
.
Import
uPred
.
...
...
@@ -227,6 +228,21 @@ Global Instance strip_later_r_sep P1 P2 Q1 Q2 :
StripLaterR
P1
Q1
→
StripLaterR
P2
Q2
→
StripLaterR
(
P1
★
P2
)
(
Q1
★
Q2
).
Proof
.
intros
??
;
red
.
by
rewrite
later_sep
;
apply
sep_mono
.
Qed
.
Global
Instance
strip_later_r_big_sepM
`
{
Countable
K
}
{
A
}
(
Φ
Ψ
:
K
→
A
→
uPred
M
)
(
m
:
gmap
K
A
)
:
(
∀
x
k
,
StripLaterR
(
Φ
k
x
)
(
Ψ
k
x
))
→
StripLaterR
([
★
map
]
k
↦
x
∈
m
,
Φ
k
x
)
([
★
map
]
k
↦
x
∈
m
,
Ψ
k
x
).
Proof
.
rewrite
/
StripLaterR
=>
?
.
rewrite
big_sepM_later
;
by
apply
big_sepM_mono
.
Qed
.
Global
Instance
strip_later_r_big_sepS
`
{
Countable
A
}
(
Φ
Ψ
:
A
→
uPred
M
)
(
X
:
gset
A
)
:
(
∀
x
,
StripLaterR
(
Φ
x
)
(
Ψ
x
))
→
StripLaterR
([
★
set
]
x
∈
X
,
Φ
x
)
([
★
set
]
x
∈
X
,
Ψ
x
).
Proof
.
rewrite
/
StripLaterR
=>
?
.
rewrite
big_sepS_later
;
by
apply
big_sepS_mono
.
Qed
.
Global
Instance
strip_later_l_later
P
:
StripLaterL
(
▷
P
)
P
.
Proof
.
done
.
Qed
.
Global
Instance
strip_later_l_and
P1
P2
Q1
Q2
:
...
...
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