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
Dan Frumin
iris-coq
Commits
886b7737
Commit
886b7737
authored
Feb 17, 2016
by
Robbert Krebbers
Browse files
Merge branch 'master' of gitlab.mpi-sws.org:FP/iris-coq
parents
18221e5f
249305e4
Changes
1
Hide whitespace changes
Inline
Side-by-side
barrier/barrier.v
View file @
886b7737
...
...
@@ -168,10 +168,18 @@ Section proof.
+
rewrite
/=
/
tok
/=
.
apply
elem_of_equiv
=>
t
.
rewrite
elem_of_difference
elem_of_union
.
rewrite
!
mkSet_elem_of
/
change_tokens
.
(
*
TODO
:
destruct
t
;
solve_elem_of
does
not
work
.
What
is
the
best
way
to
do
on
?
*
)
admit
.
destruct
t
as
[
i
'
|
];
last
by
naive_solver
.
split
.
*
move
=>
[
_
Hn
].
left
.
destruct
(
decide
(
i
=
i
'
));
first
by
subst
i
.
exfalso
.
apply
Hn
.
left
.
solve_elem_of
.
*
move
=>
[[
EQ
]
|?
];
last
discriminate
.
solve_elem_of
.
+
apply
elem_of_intersection
.
rewrite
!
mkSet_elem_of
/=
.
solve_elem_of
.
+
(
*
TODO
:
Need
lemma
about
closenedd
os
intersection
/
union
.
*
)
admit
.
Abort
.
+
apply
sts
.
closed_op
.
*
apply
i_states_closed
.
*
apply
low_states_closed
.
*
solve_elem_of
.
*
apply
(
non_empty_inhabited
(
State
Low
{
[
i
]
}
)).
apply
elem_of_intersection
.
rewrite
!
mkSet_elem_of
/=
.
solve_elem_of
.
Qed
.
Lemma
signal_spec
l
P
(
Q
:
val
→
iProp
)
:
heapN
⊥
N
→
(
send
l
P
★
P
★
Q
'
())
⊑
wp
⊤
(
signal
(
LocV
l
))
Q
.
...
...
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