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
Joshua Yanovski
iris-coq
Commits
c399acaf
Commit
c399acaf
authored
Apr 19, 2016
by
Robbert Krebbers
Browse files
Some tweaks.
parent
92e6ef6b
Changes
2
Hide whitespace changes
Inline
Side-by-side
heap_lang/lifting.v
View file @
c399acaf
...
...
@@ -36,10 +36,8 @@ Proof.
iIntros
"[HP HΦ]"
.
iFrame
"HP"
.
iNext
.
iIntros
{
v2
σ
2
ef
}
"[% HP]"
.
(
*
FIXME
:
I
should
not
have
to
refer
to
"H0"
.
*
)
destruct
H0
as
(
l
&
->
&
?
&
->
&
?
).
rewrite
-
(
of_to_val
(
Loc
l
)
(
LocV
l
))
// in H0.
apply
of_val_inj
in
H0
as
->
.
simpl
.
iSplitL
;
last
done
.
iApply
"HΦ"
{
l
}
.
iSplit
;
done
.
destruct
H0
as
(
l
&
->
&
[
=
<-
]
%
of_to_val_flip
&
->
&
?
);
simpl
.
iSplit
;
last
done
.
iApply
"HΦ"
;
by
iSplit
.
Qed
.
Lemma
wp_load_pst
E
σ
l
v
Φ
:
...
...
program_logic/language.v
View file @
c399acaf
...
...
@@ -46,6 +46,8 @@ Section language.
prim_step
e1
σ
1
e2
σ
2
ef
→
step
ρ
1
ρ
2.
Lemma
of_to_val_flip
v
e
:
of_val
v
=
e
→
to_val
e
=
Some
v
.
Proof
.
intros
<-
.
by
rewrite
to_of_val
.
Qed
.
Lemma
reducible_not_val
e
σ
:
reducible
e
σ
→
to_val
e
=
None
.
Proof
.
intros
(
?&?&?&?
);
eauto
using
val_stuck
.
Qed
.
Lemma
atomic_of_val
v
:
¬
atomic
(
of_val
v
).
...
...
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