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
0e4b3598
Commit
0e4b3598
authored
Apr 19, 2016
by
Ralf Jung
Browse files
Merge branch 'master' of gitlab.mpi-sws.org:FP/iris-coq
parents
98f58353
c399acaf
Changes
2
Hide whitespace changes
Inline
Side-by-side
heap_lang/lifting.v
View file @
0e4b3598
...
...
@@ -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 @
0e4b3598
...
...
@@ -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