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
Fairis
Commits
8c4d7b2f
Commit
8c4d7b2f
authored
Feb 18, 2016
by
Robbert Krebbers
Browse files
Add missing Propers for uPred_valid.
parent
d9e87db3
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/upred.v
View file @
8c4d7b2f
...
...
@@ -319,12 +319,13 @@ Proof. intros P1 P2 HP n' x; split; apply HP; eauto using cmra_unit_validN. Qed.
Global
Instance
always_proper
:
Proper
((
≡
)
==>
(
≡
))
(
@
uPred_always
M
)
:=
ne_proper
_.
Global
Instance
ownM_ne
n
:
Proper
(
dist
n
==>
dist
n
)
(
@
uPred_ownM
M
).
Proof
.
by
intros
a1
a2
Ha
n
'
x
;
split
;
intros
[
a
'
?
];
exists
a
'
;
simpl
;
first
[
rewrite
-
(
dist_le
_
_
_
_
Ha
);
last
lia
|
rewrite
(
dist_le
_
_
_
_
Ha
);
last
lia
].
Qed
.
Global
Instance
ownM_proper
:
Proper
((
≡
)
==>
(
≡
))
(
@
uPred_ownM
M
)
:=
ne_proper
_.
Proof
.
move
=>
a
b
Ha
n
'
x
?
/=
.
by
rewrite
(
dist_le
_
_
_
_
Ha
);
last
lia
.
Qed
.
Global
Instance
ownM_proper
:
Proper
((
≡
)
==>
(
≡
))
(
@
uPred_ownM
M
)
:=
ne_proper
_.
Global
Instance
valid_ne
{
A
:
cmraT
}
n
:
Proper
(
dist
n
==>
dist
n
)
(
@
uPred_valid
M
A
).
Proof
.
move
=>
a
b
Ha
n
'
x
?
/=
.
by
rewrite
(
dist_le
_
_
_
_
Ha
);
last
lia
.
Qed
.
Global
Instance
valid_proper
{
A
:
cmraT
}
:
Proper
((
≡
)
==>
(
≡
))
(
@
uPred_valid
M
A
)
:=
ne_proper
_.
Global
Instance
iff_ne
n
:
Proper
(
dist
n
==>
dist
n
==>
dist
n
)
(
@
uPred_iff
M
).
Proof
.
unfold
uPred_iff
;
solve_proper
.
Qed
.
Global
Instance
iff_proper
:
...
...
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