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
George Pirlea
Iris
Commits
391e52d7
Commit
391e52d7
authored
Sep 17, 2017
by
Robbert Krebbers
Browse files
Fix previous commit.
parent
ff61f8a8
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/namespaces.v
View file @
391e52d7
...
...
@@ -35,7 +35,7 @@ Section namespace.
Global
Instance
ndot_inj
:
Inj2
(=)
(=)
(=)
(@
ndot
A
_
_
).
Proof
.
intros
N1
x1
N2
x2
;
rewrite
!
ndot_eq
=>
?
;
by
simplify_eq
.
Qed
.
Lemma
nclose_nroot
:
↑
nroot
=
⊤
.
Lemma
nclose_nroot
:
↑
nroot
=
(
⊤:
coPset
)
.
Proof
.
rewrite
nclose_eq
.
by
apply
(
sig_eq_pi
_
).
Qed
.
Lemma
encode_nclose
N
:
encode
N
∈
(
↑
N
:
coPset
).
Proof
.
...
...
theories/heap_lang/lib/barrier/protocol.v
View file @
391e52d7
...
...
@@ -77,7 +77,7 @@ Proof.
-
destruct
p
;
set_solver
.
-
apply
elem_of_equiv
=>
/=
-[
j
|]
;
last
set_solver
.
set_unfold
;
rewrite
!(
inj_iff
Change
).
assert
(
Change
j
∈
match
p
with
Low
=>
∅
|
High
=>
{[
Send
]}
end
↔
False
)
assert
(
Change
j
∈
match
p
with
Low
=>
∅
:
set
token
|
High
=>
{[
Send
]}
end
↔
False
)
as
->
by
(
destruct
p
;
set_solver
).
destruct
(
decide
(
i1
=
j
))
as
[->|]
;
first
naive_solver
.
destruct
(
decide
(
i2
=
j
))
as
[->|]
;
first
naive_solver
.
...
...
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