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
d9498942
Commit
d9498942
authored
Dec 21, 2016
by
Ralf Jung
Browse files
uPred entailment commutes over limits
parent
9c55bc2c
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/algebra/ofe.v
View file @
d9498942
...
...
@@ -68,7 +68,7 @@ End ofe_mixin.
Hint
Extern
1
(
_
≡
{
_
}
≡
_
)
=>
apply
equiv_dist
;
assumption
.
(** Discrete
C
OFEs and Timeless elements *)
(** Discrete OFEs and Timeless elements *)
(* TODO: On paper, We called these "discrete elements". I think that makes
more sense. *)
Class
Timeless
`
{
Equiv
A
,
Dist
A
}
(
x
:
A
)
:
=
timeless
y
:
x
≡
{
0
}
≡
y
→
x
≡
y
.
...
...
theories/base_logic/upred.v
View file @
d9498942
...
...
@@ -172,5 +172,13 @@ Lemma entails_equiv_l (P Q R : uPred M) : (P ⊣⊢ Q) → (Q ⊢ R) → (P ⊢
Proof
.
by
intros
->.
Qed
.
Lemma
entails_equiv_r
(
P
Q
R
:
uPred
M
)
:
(
P
⊢
Q
)
→
(
Q
⊣
⊢
R
)
→
(
P
⊢
R
).
Proof
.
by
intros
?
<-.
Qed
.
Lemma
entails_lim
(
P
Q
:
chain
(
uPredC
M
))
:
(
∀
n
,
P
n
⊢
Q
n
)
→
compl
P
⊢
compl
Q
.
Proof
.
intros
Hlim
.
split
.
intros
n
m
Hval
HP
.
eapply
uPred_holds_ne
,
Hlim
,
HP
;
eauto
using
conv_compl
.
Qed
.
End
entails
.
End
uPred
.
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