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
Jonas Kastberg
iris
Commits
739f6341
Commit
739f6341
authored
Jul 21, 2016
by
Ralf Jung
Browse files
show that uPred_holds is NE
parent
64bb0481
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/upred.v
View file @
739f6341
...
...
@@ -50,12 +50,19 @@ Section cofe.
End
cofe
.
Arguments
uPredC
:
clear
implicits
.
Instance
uPred_ne
'
{
M
}
(
P
:
uPred
M
)
n
:
Proper
(
dist
n
==>
iff
)
(
P
n
).
Instance
uPred_ne
{
M
}
(
P
:
uPred
M
)
n
:
Proper
(
dist
n
==>
iff
)
(
P
n
).
Proof
.
intros
x1
x2
Hx
;
split
=>
?
;
eapply
uPred_mono
;
eauto
;
by
rewrite
Hx
.
Qed
.
Instance
uPred_proper
{
M
}
(
P
:
uPred
M
)
n
:
Proper
((
≡
)
==>
iff
)
(
P
n
).
Proof
.
by
intros
x1
x2
Hx
;
apply
uPred_ne'
,
equiv_dist
.
Qed
.
Proof
.
by
intros
x1
x2
Hx
;
apply
uPred_ne
,
equiv_dist
.
Qed
.
Lemma
uPred_holds_ne
{
M
}
(
P
Q
:
uPred
M
)
n1
n2
x
:
P
≡
{
n2
}
≡
Q
→
n2
≤
n1
→
✓
{
n2
}
x
→
Q
n1
x
→
P
n2
x
.
Proof
.
intros
[
Hne
]
???.
eapply
Hne
;
try
done
.
eapply
uPred_closed
;
eauto
using
cmra_validN_le
.
Qed
.
(** functor *)
Program
Definition
uPred_map
{
M1
M2
:
ucmraT
}
(
f
:
M2
-
n
>
M1
)
...
...
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