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
Rice Wine
Iris
Commits
b5ad0e0f
Commit
b5ad0e0f
authored
Apr 15, 2016
by
Ralf Jung
Browse files
minor formatting nits
parent
7fc1124c
Changes
3
Hide whitespace changes
Inline
Side-by-side
heap_lang/lib/lock.v
View file @
b5ad0e0f
...
...
@@ -52,12 +52,12 @@ Lemma newlock_spec N (R : iProp) Φ :
(
heap_ctx
heapN
★
R
★
(
∀
l
,
is_lock
l
R
-
★
Φ
(
LocV
l
)))
⊢
WP
newlock
#()
{{
Φ
}}.
Proof
.
iIntros
{?}
"(#Hh
&HR&
HΦ)"
.
rewrite
/
newlock
.
iIntros
{?}
"(#Hh
& HR &
HΦ)"
.
rewrite
/
newlock
.
wp_seq
.
iApply
wp_pvs
.
wp_alloc
l
as
"Hl"
.
iPvs
(
own_alloc
(
Excl
()))
as
{
γ
}
"Hγ"
;
first
done
.
iPvs
(
inv_alloc
N
_
(
lock_inv
γ
l
R
))
"[H
R Hl Hγ
]"
as
"#?"
;
first
done
.
iPvs
(
inv_alloc
N
_
(
lock_inv
γ
l
R
))
"
-
[H
Φ
]"
as
"#?"
;
first
done
.
{
iNext
.
iExists
false
.
by
iFrame
"Hl HR"
.
}
iPvsIntro
;
iApply
"HΦ"
.
iExists
N
,
γ
.
by
repeat
iSplit
.
iPvsIntro
.
iApply
"HΦ"
.
iExists
N
,
γ
.
by
repeat
iSplit
.
Qed
.
Lemma
acquire_spec
l
R
(
Φ
:
val
→
iProp
)
:
...
...
proofmode/coq_tactics.v
View file @
b5ad0e0f
...
...
@@ -570,7 +570,7 @@ Qed.
(** * Rewriting *)
Lemma
tac_rewrite
Δ
i
p
Pxy
(
lr
:
bool
)
Q
:
envs_lookup
i
Δ
=
Some
(
p
,
Pxy
)
→
∀
{
A
:
cofeT
}
x
y
(
Φ
:
A
→
uPred
M
),
∀
{
A
:
cofeT
}
(
x
y
:
A
)
(
Φ
:
A
→
uPred
M
),
Pxy
⊢
(
x
≡
y
)%
I
→
Q
⊣
⊢
Φ
(
if
lr
then
y
else
x
)
→
(
∀
n
,
Proper
(
dist
n
==>
dist
n
)
Φ
)
→
...
...
@@ -761,7 +761,7 @@ Global Instance or_destruct_later P Q1 Q2 :
Proof
.
rewrite
/
OrDestruct
=>->.
by
rewrite
later_or
.
Qed
.
Lemma
tac_or_destruct
Δ
Δ
1
Δ
2
i
p
j1
j2
P
P1
P2
Q
:
envs_lookup
i
Δ
=
Some
(
p
,
P
)
%
I
→
OrDestruct
P
P1
P2
→
envs_lookup
i
Δ
=
Some
(
p
,
P
)
→
OrDestruct
P
P1
P2
→
envs_simple_replace
i
p
(
Esnoc
Enil
j1
P1
)
Δ
=
Some
Δ
1
→
envs_simple_replace
i
p
(
Esnoc
Enil
j2
P2
)
Δ
=
Some
Δ
2
→
Δ
1
⊢
Q
→
Δ
2
⊢
Q
→
Δ
⊢
Q
.
...
...
tests/heap_lang.v
View file @
b5ad0e0f
...
...
@@ -70,6 +70,6 @@ Section ClosedProofs.
Proof
.
iProof
.
iIntros
"! Hσ"
.
iPvs
(
heap_alloc
nroot
)
"Hσ"
as
{
h
}
"[? _]"
;
first
by
rewrite
nclose_nroot
.
iApply
heap_e_spec
;
last
done
;
by
rewrite
nclose_nroot
.
iApply
heap_e_spec
;
last
done
;
by
rewrite
nclose_nroot
.
Qed
.
End
ClosedProofs
.
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