Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
Iris
Commits
833f7c15
Commit
833f7c15
authored
Nov 27, 2017
by
Robbert Krebbers
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
`to_agree` preserves discrete OFE elements.
parent
c136a440
Pipeline
#5592
passed with stages
in 9 minutes and 49 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Sidebyside
Showing
1 changed file
with
9 additions
and
0 deletions
+9
0
theories/algebra/agree.v
theories/algebra/agree.v
+9
0
No files found.
theories/algebra/agree.v
View file @
833f7c15
...
...
@@ 166,6 +166,15 @@ Proof.
Qed
.
Global
Instance
to_agree_proper
:
Proper
((
≡
)
==>
(
≡
))
to_agree
:
=
ne_proper
_
.
Global
Instance
to_agree_discrete
a
:
Discrete
a
→
Discrete
(
to_agree
a
).
Proof
.
intros
?
y
[
H
H'
]
n
;
split
.

intros
a'
>%
elem_of_list_singleton
.
destruct
(
H
a
)
as
[
b
?]
;
first
by
left
.
exists
b
.
by
rewrite

discrete_iff_0
.

intros
b
Hb
.
destruct
(
H'
b
)
as
(
b'
&>%
elem_of_list_singleton
&?)
;
auto
.
exists
a
.
by
rewrite
elem_of_list_singleton

discrete_iff_0
.
Qed
.
Global
Instance
to_agree_injN
n
:
Inj
(
dist
n
)
(
dist
n
)
(
to_agree
).
Proof
.
move
=>
a
b
[
_
]
/=.
setoid_rewrite
elem_of_list_singleton
.
naive_solver
.
...
...
Robbert Krebbers
@robbertkrebbers
mentioned in commit
702ad20d
·
Dec 02, 2017
mentioned in commit
702ad20d
mentioned in commit 702ad20dfe37b2569c276ddb594471bfb1e0fa85
Toggle commit list
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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