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
4b85b795
Commit
4b85b795
authored
Jul 08, 2019
by
Ralf Jung
Browse files
simple validity
parent
951cee52
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/sim/simple.v
View file @
4b85b795
...
...
@@ -73,6 +73,26 @@ Proof.
auto
.
Qed
.
Lemma
sim_simple_valid_pre
fs
ft
r
n
es
css
et
cst
Φ
:
(
valid
r
→
r
⊨ˢ
{
n
,
fs
,
ft
}
(
es
,
css
)
≥
(
et
,
cst
)
:
Φ
)
→
r
⊨ˢ
{
n
,
fs
,
ft
}
(
es
,
css
)
≥
(
et
,
cst
)
:
Φ
.
Proof
.
intros
Hold
σ
s
σ
t
<-<-
.
eapply
sim_body_valid
=>
Hval
.
eapply
sim_local_body_post_mono
,
Hold
;
done
.
Qed
.
Lemma
sim_simple_valid_post
fs
ft
r
n
es
css
et
cst
Φ
:
(
r
⊨ˢ
{
n
,
fs
,
ft
}
(
es
,
css
)
≥
(
et
,
cst
)
:
(
λ
r
'
n
'
es
'
css
'
et
'
cst
'
,
valid
r
'
→
Φ
r
'
n
'
es
'
css
'
et
'
cst
'
))
→
r
⊨ˢ
{
n
,
fs
,
ft
}
(
es
,
css
)
≥
(
et
,
cst
)
:
Φ
.
Proof
.
intros
Hold
σ
s
σ
t
<-<-
.
eapply
sim_body_valid
=>
Hval
.
eapply
sim_local_body_post_mono
,
Hold
;
done
.
Qed
.
(
**
Simple
proof
for
a
function
taking
one
argument
.
*
)
(
*
TODO
:
make
the
two
call
stacks
the
same
.
*
)
Lemma
sim_fun_simple1
n
(
esf
etf
:
function
)
:
...
...
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