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
George Pirlea
Iris
Commits
97dc4393
Commit
97dc4393
authored
Jun 15, 2016
by
Jacques-Henri Jourdan
Browse files
Use projections in the instance of Timeless for pairs
parent
8c77aa2f
Changes
2
Hide whitespace changes
Inline
Side-by-side
algebra/cofe.v
View file @
97dc4393
...
...
@@ -323,9 +323,9 @@ Section product.
apply
(
conv_compl
n
(
chain_map
snd
c
)).
Qed
.
Canonical
Structure
prodC
:
cofeT
:
=
CofeT
(
A
*
B
)
prod_cofe_mixin
.
Global
Instance
p
air
_timeless
(
x
:
A
)
(
y
:
B
)
:
Timeless
x
→
Timeless
y
→
Timeless
(
x
,
y
)
.
Proof
.
by
intros
??
[
x'
y'
]
[??]
;
split
;
apply
(
timeless
_
).
Qed
.
Global
Instance
p
rod
_timeless
(
x
:
A
*
B
)
:
Timeless
(
x
.
1
)
→
Timeless
(
x
.
2
)
→
Timeless
x
.
Proof
.
by
intros
??
?
[??]
;
split
;
apply
(
timeless
_
).
Qed
.
Global
Instance
prod_discrete_cofe
:
Discrete
A
→
Discrete
B
→
Discrete
prodC
.
Proof
.
intros
??
[??]
;
apply
_
.
Qed
.
End
product
.
...
...
program_logic/boxes.v
View file @
97dc4393
...
...
@@ -57,11 +57,6 @@ Proof. solve_proper. Qed.
Global
Instance
slice_persistent
γ
P
:
PersistentP
(
slice
N
γ
P
).
Proof
.
apply
_
.
Qed
.
(* This should go automatic *)
Instance
box_own_auth_timeless
γ
(
a
:
auth
(
option
(
excl
bool
)))
:
TimelessP
(
box_own_auth
γ
a
).
Proof
.
apply
own_timeless
,
pair_timeless
;
apply
_
.
Qed
.
Lemma
box_own_auth_agree
γ
b1
b2
:
box_own_auth
γ
(
●
Excl'
b1
)
★
box_own_auth
γ
(
◯
Excl'
b2
)
⊢
b1
=
b2
.
Proof
.
...
...
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