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
Iris
Iris
Commits
88679d3e
Commit
88679d3e
authored
Feb 18, 2016
by
Robbert Krebbers
Browse files
Tweak closed proof in heap_lang/tests.
parent
2c6727dc
Changes
1
Hide whitespace changes
Inline
Side-by-side
heap_lang/tests.v
View file @
88679d3e
...
...
@@ -80,25 +80,18 @@ Section LiftingTests.
End
LiftingTests
.
Section
ClosedProofs
.
Definition
Σ
:
iFunctorG
:
=
λ
_
,
authF
(
constF
heapRA
).
Notation
iProp
:
=
(
iPropG
heap_lang
Σ
).
Local
Instance
:
inG
heap_lang
Σ
(
authRA
heapRA
).
Proof
.
by
exists
1
%
nat
.
Qed
.
(* TODO: Why do I even have to explicitly do this? *)
Local
Instance
:
authG
heap_lang
Σ
heapRA
.
Proof
.
split
;
by
apply
_
.
Qed
.
Local
Notation
iProp
:
=
(
iPropG
heap_lang
Σ
).
Instance
:
authG
heap_lang
Σ
heapRA
.
Proof
.
split
;
try
apply
_
.
by
exists
1
%
nat
.
Qed
.
Lemma
heap_e_hoare
σ
:
{{
ownP
σ
:
iProp
}}
heap_e
@
⊤
{{
λ
v
,
v
=
'
2
}}.
Proof
.
apply
ht_alt
.
rewrite
(
heap_alloc
⊤
nroot
)
;
last
by
rewrite
nclose_nroot
.
apply
wp_strip_pvs
,
exist_elim
=>?.
rewrite
and_elim_l
.
apply
wp_strip_pvs
,
exist_elim
=>
?.
rewrite
and_elim_l
.
rewrite
-
heap_e_spec
;
first
by
eauto
with
I
.
by
rewrite
nclose_nroot
.
Qed
.
Print
Assumptions
heap_e_hoare
.
End
ClosedProofs
.
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