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
Adam
Iris
Commits
fb9e7003
Commit
fb9e7003
authored
Apr 18, 2021
by
Hai Dang
Browse files
Make uPred_si_embed instances lemmas and move them
parent
dcc20ce0
Changes
1
Hide whitespace changes
Inline
Side-by-side
iris/base_logic/upred.v
View file @
fb9e7003
...
...
@@ -591,6 +591,20 @@ Proof.
unseal
;
split
=>
n'
x
?
/=.
by
rewrite
(
dist_le
_
_
_
_
Ha
)
;
last
lia
.
Qed
.
Lemma
si_embed_mono
:
Proper
((
⊢
@{
siPropI
})
==>
(
⊢
))
(@
uPred_si_embed
M
).
Proof
.
intros
??
Hm
.
unseal
.
split
=>
???
/=.
by
apply
Hm
.
Qed
.
Lemma
si_embed_ne
:
NonExpansive
(@
uPred_si_embed
M
).
Proof
.
intros
???
He
.
unseal
.
split
=>
????
/=.
by
apply
He
.
Qed
.
Lemma
si_embed_proper
:
Proper
((
≡
)
==>
(
≡
))
(@
uPred_si_embed
M
).
Proof
.
apply
ne_proper
,
si_embed_ne
.
Qed
.
Lemma
si_emp_valid_ne
:
NonExpansive
(@
uPred_si_emp_valid
M
).
Proof
.
intros
???
He
.
unseal
.
split
=>
??.
apply
He
;
[
done
|
apply
ucmra_unit_validN
].
Qed
.
Lemma
cmra_valid_ne
{
A
:
cmra
}
:
NonExpansive
(@
uPred_cmra_valid
M
A
).
Proof
.
...
...
@@ -890,18 +904,6 @@ Proof.
Qed
.
(** Embedding of siProp *)
Local
Instance
si_embed_mono
:
Proper
((
⊢
@{
siPropI
})
==>
(
⊢
))
(@
uPred_si_embed
M
).
Proof
.
intros
??
Hm
.
unseal
.
split
=>
???
/=.
by
apply
Hm
.
Qed
.
Local
Instance
si_embed_ne
:
NonExpansive
(@
uPred_si_embed
M
).
Proof
.
intros
???
He
.
unseal
.
split
=>
????
/=.
by
apply
He
.
Qed
.
Local
Instance
si_embed_proper
:
Proper
((
≡
)
==>
(
≡
))
(@
uPred_si_embed
M
).
Proof
.
apply
ne_proper
,
_
.
Qed
.
Local
Instance
si_emp_valid_ne
:
NonExpansive
(@
uPred_si_emp_valid
M
).
Proof
.
intros
???
He
.
unseal
.
split
=>
??.
apply
He
;
[
done
|
apply
ucmra_unit_validN
].
Qed
.
Local
Notation
"⎡ P ⎤"
:
=
(@
uPred_si_embed
M
(
P
:
siProp
))
:
bi_scope
.
Local
Ltac
unseal_embed
:
=
rewrite
/
bi_emp
/=
/
siProp_emp
/=
?siProp_pure_eq
/=
...
...
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