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
Iris
examples
Commits
6580992d
Commit
6580992d
authored
Sep 08, 2016
by
Zhen Zhang
Browse files
emphasize the problem of monoid selection
parent
87fd3100
Changes
1
Hide whitespace changes
Inline
Side-by-side
sync.v
View file @
6580992d
...
...
@@ -120,8 +120,6 @@ Section generic.
(
∀
g'
r
,
gFrag
γ
g'
★
β
x
g
g'
r
={
Ei
,
Eo
}=>
Q
r
))
-
★
{{
P
}}
f
x
{{
Q
}})%
I
.
Lemma
update_a
:
∀
x
x'
:
A
,
(
gFullR
x
⋅
gFragR
x
)
~~>
(
gFullR
x'
⋅
gFragR
x'
).
Proof
.
Admitted
.
Definition
sync
:
val
:
=
λ
:
"f_cons"
"f_seq"
,
...
...
@@ -178,11 +176,11 @@ Section generic.
iFrame
"Hh Hϕ Hα"
.
iIntros
(
ret
g'
)
"Hϕ' Hβ"
.
iCombine
"HgFull"
"HgFrag"
as
"Hg"
.
iVs
(
own_update
with
"Hg"
)
as
"[HgFull HgFrag]"
.
{
a
pply
update_a
.
}
{
a
dmit
.
}
iSplitL
"HgFull Hϕ'"
.
-
iExists
g'
.
by
iFrame
.
-
by
iVs
(
"Hvs2"
$!
g'
ret
with
"[HgFrag Hβ]"
)
;
first
by
iFrame
.
Q
ed
.
Admitt
ed
.
End
generic
.
...
...
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