Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Rodolphe Lepigre
Iris
Commits
9460ce23
Commit
9460ce23
authored
Jan 19, 2016
by
Robbert Krebbers
Browse files
Identity and composition laws for excl and auth functor.
parent
a50d7b04
Changes
2
Hide whitespace changes
Inline
Side-by-side
modures/auth.v
View file @
9460ce23
...
...
@@ -3,6 +3,7 @@ Local Arguments valid _ _ !_ /.
Local
Arguments
validN
_
_
_
!
_
/.
Record
auth
(
A
:
Type
)
:
Type
:
=
Auth
{
authoritative
:
excl
A
;
own
:
A
}.
Add
Printing
Constructor
auth
.
Arguments
Auth
{
_
}
_
_
.
Arguments
authoritative
{
_
}
_
.
Arguments
own
{
_
}
_
.
...
...
@@ -151,6 +152,12 @@ Arguments authRA : clear implicits.
(* Functor *)
Instance
auth_fmap
:
FMap
auth
:
=
λ
A
B
f
x
,
Auth
(
f
<$>
authoritative
x
)
(
f
(
own
x
)).
Arguments
auth_fmap
_
_
_
!
_
/.
Lemma
auth_fmap_id
{
A
}
(
x
:
auth
A
)
:
id
<$>
x
=
x
.
Proof
.
by
destruct
x
;
rewrite
/=
excl_fmap_id
.
Qed
.
Lemma
excl_fmap_compose
{
A
B
C
}
(
f
:
A
→
B
)
(
g
:
B
→
C
)
(
x
:
auth
A
)
:
g
∘
f
<$>
x
=
g
<$>
f
<$>
x
.
Proof
.
by
destruct
x
;
rewrite
/=
excl_fmap_compose
.
Qed
.
Instance
auth_fmap_cmra_ne
{
A
B
:
cmraT
}
n
:
Proper
((
dist
n
==>
dist
n
)
==>
dist
n
==>
dist
n
)
(@
fmap
auth
_
A
B
).
Proof
.
...
...
modures/excl.v
View file @
9460ce23
...
...
@@ -156,6 +156,11 @@ Instance excl_fmap : FMap excl := λ A B f x,
match
x
with
|
Excl
a
=>
Excl
(
f
a
)
|
ExclUnit
=>
ExclUnit
|
ExclBot
=>
ExclBot
end
.
Lemma
excl_fmap_id
{
A
}
(
x
:
excl
A
)
:
id
<$>
x
=
x
.
Proof
.
by
destruct
x
.
Qed
.
Lemma
excl_fmap_compose
{
A
B
C
}
(
f
:
A
→
B
)
(
g
:
B
→
C
)
(
x
:
excl
A
)
:
g
∘
f
<$>
x
=
g
<$>
f
<$>
x
.
Proof
.
by
destruct
x
.
Qed
.
Instance
excl_fmap_cmra_ne
{
A
B
:
cofeT
}
n
:
Proper
((
dist
n
==>
dist
n
)
==>
dist
n
==>
dist
n
)
(@
fmap
excl
_
A
B
).
Proof
.
by
intros
f
f'
Hf
;
destruct
1
;
constructor
;
apply
Hf
.
Qed
.
...
...
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