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
7298dd39
Commit
7298dd39
authored
Nov 29, 2017
by
Robbert Krebbers
Browse files
Prove `x ⋅ y ~~> x`.
parent
623adc39
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/algebra/updates.v
View file @
7298dd39
...
...
@@ -77,6 +77,12 @@ Lemma cmra_update_op x1 x2 y1 y2 : x1 ~~> y1 → x2 ~~> y2 → x1 ⋅ x2 ~~> y1
Proof
.
rewrite
!
cmra_update_updateP
;
eauto
using
cmra_updateP_op
with
congruence
.
Qed
.
Lemma
cmra_update_op_l
x
y
:
x
⋅
y
~~>
x
.
Proof
.
intros
n
mz
.
rewrite
comm
cmra_opM_assoc
.
apply
cmra_validN_op_r
.
Qed
.
Lemma
cmra_update_op_r
x
y
:
x
⋅
y
~~>
y
.
Proof
.
rewrite
comm
.
apply
cmra_update_op_l
.
Qed
.
Lemma
cmra_update_valid0
x
y
:
(
✓
{
0
}
x
→
x
~~>
y
)
→
x
~~>
y
.
Proof
.
intros
H
n
mz
Hmz
.
apply
H
,
Hmz
.
...
...
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