Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Joshua Yanovski
iris-coq
Commits
45f84a82
Commit
45f84a82
authored
Feb 22, 2016
by
Robbert Krebbers
Browse files
Fix notation for ndot.
The non applied one should be only parsing.
parent
e9af95ac
Changes
2
Hide whitespace changes
Inline
Side-by-side
barrier/client.v
View file @
45f84a82
...
...
@@ -33,13 +33,13 @@ Section ClosedProofs.
Lemma
client_safe_closed
σ
:
{{
ownP
σ
:
iProp
}}
client
{{
λ
v
,
True
}}
.
Proof
.
apply
ht_alt
.
rewrite
(
heap_alloc
⊤
(
ndot
nroot
"Barrier"
));
last
first
.
apply
ht_alt
.
rewrite
(
heap_alloc
⊤
(
nroot
.
:
"Barrier"
));
last
first
.
{
(
*
FIXME
Really
??
set_solver
takes
forever
on
"⊆ ⊤"
?!?
*
)
move
=>?
_.
exact
I
.
}
by
move
=>?
_.
}
apply
wp_strip_pvs
,
exist_elim
=>
?
.
rewrite
and_elim_l
.
rewrite
-
(
client_safe
(
nroot
.
:
"Heap"
)
(
nroot
.
:
"Barrier"
))
//.
(
*
This
,
too
,
should
be
automated
.
*
)
apply
ndot_ne_disjoint
.
discriminate
.
by
apply
ndot_ne_disjoint
.
Qed
.
Print
Assumptions
client_safe_closed
.
...
...
program_logic/namespaces.v
View file @
45f84a82
...
...
@@ -8,7 +8,7 @@ Definition ndot `{Countable A} (N : namespace) (x : A) : namespace :=
Coercion
nclose
(
N
:
namespace
)
:
coPset
:=
coPset_suffixes
(
encode
N
).
Infix
".:"
:=
ndot
(
at
level
19
,
left
associativity
)
:
C_scope
.
Notation
"(.:)"
:=
ndot
:
C_scope
.
Notation
"(.:)"
:=
ndot
(
only
parsing
)
:
C_scope
.
Instance
ndot_inj
`
{
Countable
A
}
:
Inj2
(
=
)
(
=
)
(
=
)
(
@
ndot
A
_
_
).
Proof
.
by
intros
N1
x1
N2
x2
?
;
simplify_eq
.
Qed
.
...
...
Write
Preview
Supports
Markdown
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