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
Rodolphe Lepigre
Iris
Commits
7b0417ad
Commit
7b0417ad
authored
Feb 23, 2016
by
Ralf Jung
Browse files
...
parent
998df552
Changes
2
Hide whitespace changes
Inline
Side-by-side
algebra/agree.v
View file @
7b0417ad
...
...
@@ -61,7 +61,7 @@ Instance agree_unit : Unit (agree A) := id.
Instance
agree_minus
:
Minus
(
agree
A
)
:
=
λ
x
y
,
x
.
Instance
:
Comm
(
≡
)
(@
op
(
agree
A
)
_
).
Proof
.
intros
x
y
;
split
;
[
naive_solver
|
by
intros
n
(?&?&
Hxy
)
;
apply
Hxy
].
Qed
.
Definition
agree_idemp
(
x
:
agree
A
)
:
x
⋅
x
≡
x
.
Lemma
agree_idemp
(
x
:
agree
A
)
:
x
⋅
x
≡
x
.
Proof
.
split
;
naive_solver
.
Qed
.
Instance
:
∀
n
:
nat
,
Proper
(
dist
n
==>
impl
)
(@
validN
(
agree
A
)
_
n
).
Proof
.
...
...
algebra/dec_agree.v
View file @
7b0417ad
...
...
@@ -47,3 +47,5 @@ Proof.
Qed
.
Canonical
Structure
dec_agreeRA
:
cmraT
:
=
discreteRA
dec_agree_ra
.
End
dec_agree
.
\ No newline at end of file
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