Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
c
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Iris
c
Commits
cd9c189a
Commit
cd9c189a
authored
Oct 31, 2018
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Get rid of two admits
parent
c5ec5ddf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
6 deletions
+17
-6
theories/lib/flock.v
theories/lib/flock.v
+17
-6
No files found.
theories/lib/flock.v
View file @
cd9c189a
...
...
@@ -296,9 +296,13 @@ Section flock.
{
remember
(
fa
!!
i
)
as
fai
.
destruct
fai
as
[[
π
ρ
'
]|]
;
last
done
.
symmetry
in
Heqfai
.
rewrite
(
big_sepM_lookup
_
fa
i
(
π
,
ρ
'
))
//.
(* TODO: RK, please look at this! *)
iDestruct
(
own_valid_2
with
"Hi Hactives"
)
as
%
Hbaz
.
exfalso
.
revert
Hbaz
.
rewrite
-
auth_frag_op
/=.
admit
.
}
exfalso
.
revert
Hbaz
.
rewrite
-
auth_frag_op
/=.
intros
Hbaz
%
auth_own_valid
.
revert
Hbaz
.
simpl
.
rewrite
op_singleton
pair_op
/=.
rewrite
singleton_valid
.
intros
[
Hlol
_
].
simpl
in
*.
eapply
exclusive_l
;
eauto
.
apply
_
.
}
assert
(
fp
!!
i
=
Some
ρ
)
as
Hbaz
.
{
apply
lookup_union_Some
in
Hfoo
;
last
done
.
destruct
Hfoo
as
[?
|
Hfoo
]
;
first
done
.
...
...
@@ -347,7 +351,7 @@ Section flock.
+
iPureIntro
.
by
apply
map_disjoint_delete_l
.
+
rewrite
/
from_active
fmap_empty
/=
right_id
.
by
rewrite
to_props_map_delete
.
Admitt
ed
.
Q
ed
.
Lemma
newflock_spec
:
{{{
True
}}}
newlock
#()
{{{
lk
γ
,
RET
lk
;
is_flock
γ
lk
}}}.
...
...
@@ -417,7 +421,11 @@ Section flock.
iMod
(
"Hcl"
with
"[Haactive Hi Hlocked Haprops Htokens Hstate]"
)
as
"_"
.
{
iNext
.
iExists
Locked
,{[
i
:
=
(
π
,
ρ
)]},(
delete
i
fp
).
iFrame
.
iSplitR
;
[
|
iSplitL
"Haprops"
].
-
admit
.
-
iPureIntro
.
rewrite
/
from_active
map_fmap_singleton
/=.
(* TODO: RK, please look at this *)
admit
.
-
rewrite
/
from_active
map_fmap_singleton
/=.
rewrite
-
insert_union_singleton_r
.
2
:
{
apply
lookup_delete
.
}
...
...
@@ -494,7 +502,10 @@ Section flock.
apply
map_disjoint_empty_r
.
-
iFrame
.
rewrite
/
from_active
fmap_empty
right_id
/=.
rewrite
map_fmap_singleton
.
assert
(
fp
!!
i
=
None
).
admit
.
(* follows from ##ₘ *)
assert
(
fp
!!
i
=
None
).
{
eapply
map_disjoint_Some_r
;
first
eassumption
.
rewrite
/
from_active
!
map_fmap_singleton
.
by
rewrite
lookup_singleton
.
}
rewrite
-
insert_union_singleton_r
//
/=.
iFrame
.
rewrite
/
all_tokens
big_sepM_insert
//.
iFrame
.
...
...
@@ -502,7 +513,7 @@ Section flock.
iApply
(
release_spec
with
"[$Hlk $Hlocked $Hunflkd]"
).
iModIntro
.
iNext
.
iIntros
"_"
.
iApply
"HΦ"
.
by
iFrame
.
Admitt
ed
.
Q
ed
.
(** LULZ *)
...
...
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