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
FP
Stacked Borrows Coq
Commits
1efe531c
Commit
1efe531c
authored
Jul 06, 2019
by
Ralf Jung
Browse files
more line breaks and a let-lemma specifically for values
parent
f46394dc
Changes
3
Hide whitespace changes
Inline
Side-by-side
theories/opt/ex1.v
View file @
1efe531c
...
...
@@ -37,5 +37,9 @@ Proof.
apply
sim_body_init_call
.
simpl
.
(
*
Alloc
*
)
sim_bind
(
Alloc
_
)
(
Alloc
_
).
sim_bind
(
Alloc
_
)
(
Alloc
_
).
simpl
.
apply
sim_body_alloc_shared
.
simpl
.
intros
->
->
.
(
*
Let
*
)
sim_bind
(
Let
_
_
_
)
(
Let
_
_
_
).
Abort
.
theories/sim/instance.v
View file @
1efe531c
...
...
@@ -3,7 +3,7 @@ From stbor.sim Require Export local invariant.
Notation
"r ⊨{ n , fs , ft } ( es , σs ) ≥ ( et , σt ) : Φ"
:=
(
sim_local_body
wsat
vrel_expr
fs
ft
r
n
%
nat
es
%
E
σ
s
et
%
E
σ
t
Φ
)
(
at
level
70
,
format
"'[hv' r ⊨{ n , fs , ft } '/ ' '[
' ( es , σs ) ']' '/' ≥ '/ ' '[
' ( et , σt ) ']' '/' : Φ ']'"
).
(
at
level
70
,
format
"'[hv' r
'/'
⊨{ n , fs , ft } '/ ' '[ ' ( es ,
'/'
σs ) ']' '/' ≥ '/ ' '[ ' ( et ,
'/'
σt ) ']' '/' : Φ ']'"
).
Notation
"⊨{ fs , ft } f1 ≥ᶠ f2"
:=
(
sim_local_fun
wsat
vrel_expr
fs
ft
end_call_sat
f1
f2
)
...
...
theories/sim/refl_step.v
View file @
1efe531c
...
...
@@ -1149,6 +1149,11 @@ Proof.
split
;
[
done
|
].
by
left
.
Qed
.
Lemma
sim_body_let_val
fs
ft
r
n
x
(
vs1
vt1
:
value
)
es2
et2
σ
s
σ
t
Φ
:
r
⊨
{
n
,
fs
,
ft
}
(
subst
x
vs1
es2
,
σ
s
)
≥
(
subst
x
vt1
et2
,
σ
t
)
:
Φ
→
r
⊨
{
n
,
fs
,
ft
}
(
let
:
x
:=
vs1
in
es2
,
σ
s
)
≥
((
let
:
x
:=
vt1
in
et2
),
σ
t
)
:
Φ
.
Proof
.
apply
sim_body_let
;
eauto
.
Qed
.
(
**
Ref
*
)
Lemma
sim_body_ref
fs
ft
r
n
l
tgs
tgt
Ts
Tt
σ
s
σ
t
Φ
:
r
⊨
{
n
,
fs
,
ft
}
(#[
ScPtr
l
tgs
],
σ
s
)
≥
(#[
ScPtr
l
tgt
],
σ
t
)
:
Φ
→
...
...
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