Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
c
Commits
23ae69a1
Commit
23ae69a1
authored
Nov 07, 2018
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Get rid of the final admit
parent
1dd902a7
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
8 deletions
+5
-8
opam
opam
+1
-1
theories/lib/flock.v
theories/lib/flock.v
+4
-7
No files found.
opam
View file @
23ae69a1
...
...
@@ -8,5 +8,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris-c-monad"]
depends: [
"coq-iris" { (= "dev.2018-11-0
1.3.19aae59a
") | (= "dev") }
"coq-iris" { (= "dev.2018-11-0
6.0.c6e8c5d5
") | (= "dev") }
]
theories/lib/flock.v
View file @
23ae69a1
...
...
@@ -767,12 +767,9 @@ Section flock.
snd <$> f <$> I ≼ snd <$> g <$> fp
= to_agree o res_name <$> I ≼ to_agree <$> fp *)
assert
(((
snd
<$>
(
f
<$>
I
))
:
gmapUR
prop_id
(
agreeR
lock_res_nameC
))
≼
(
snd
<$>
(
g
<$>
fp
)))
as
Hbar
.
{
(* TODO DOESN"T WORK SAD *)
(* Check (gmap_fmap_mono snd (f <$> I) (g <$> fp)). *)
admit
.
(* eapply cmra_morphism_monotone; last exact: Hfoo. *)
(* apply gmap_fmap_cmra_morphism. apply _. *)
}
{
apply
gmap_fmap_mono
;
eauto
.
-
move
=>
[?
?]
[?
?]
[?
?]
//.
-
intros
[?
?]
[?
?]
[?
?]%
prod_included
.
done
.
}
rewrite
-!
map_fmap_compose
in
Hbar
.
assert
((
to_agree
∘
res_name
<$>
I
)
≼
to_agree
<$>
fp
)
as
Hbaz
by
exact
:
Hbar
.
rewrite
map_fmap_compose
in
Hbaz
.
...
...
@@ -834,7 +831,7 @@ Section flock.
iFrame
.
iSplit
;
eauto
.
rewrite
big_sepM_fmap
.
iApply
(
big_sepM_own_frag
with
"Hemp HI"
).
Admitt
ed
.
Q
ed
.
Lemma
release_cancel_spec'
γ
lk
I
:
{{{
is_flock
γ
lk
∗
flocked
γ
I
}}}
...
...
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