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
Marianna Rapoport
iris-coq
Commits
84278e1b
Commit
84278e1b
authored
Nov 16, 2015
by
Robbert Krebbers
Browse files
Agree is a functor.
parent
91c5bb27
Changes
1
Hide whitespace changes
Inline
Side-by-side
iris/agree.v
View file @
84278e1b
...
...
@@ -124,7 +124,7 @@ Proof.
Qed
.
End
agree
.
Canonical
Structure
agree
C
(
A
:
c
mra
T
)
:
cmraT
:
=
CMRAT
(
agree
A
).
Canonical
Structure
agree
RA
(
A
:
c
ofe
T
)
:
cmraT
:
=
CMRAT
(
agree
A
).
Section
agree_map
.
Context
`
{
Cofe
A
,
Cofe
B
}
(
f
:
A
→
B
)
`
{
Hf
:
∀
n
,
Proper
(
dist
n
==>
dist
n
)
f
}.
...
...
@@ -147,3 +147,6 @@ Section agree_map.
try
apply
Hxy
;
eauto
using
agree_valid_le
.
Qed
.
End
agree_map
.
Definition
agreeRA_map
{
A
B
}
(
f
:
A
-
n
>
B
)
:
agreeRA
A
-
n
>
agreeRA
B
:
=
CofeMor
(
agree_map
f
:
agreeRA
A
→
agreeRA
B
).
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