Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
V
VFPG
Manage
Activity
Members
Labels
Plan
Issues
0
Issue boards
Milestones
Wiki
Requirements
Code
Merge requests
0
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Locked files
Build
Pipelines
Jobs
Pipeline schedules
Test cases
Artifacts
Deploy
Releases
Package Registry
Container Registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Code review analytics
Issue analytics
Insights
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
POLLIEN Baptiste
VFPG
Commits
f7373a56
Commit
f7373a56
authored
1 year ago
by
WASQUEL Valentin
Browse files
Options
Downloads
Patches
Plain Diff
removed external_call_same_trace & following lemma
parent
8210912a
No related branches found
Branches containing commit
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/semantics/FPBigStepClight.v
+24
-9
24 additions, 9 deletions
src/semantics/FPBigStepClight.v
with
24 additions
and
9 deletions
src/semantics/FPBigStepClight.v
+
24
−
9
View file @
f7373a56
...
...
@@ -382,18 +382,26 @@ with No_external_call_labeled : labeled_statements -> Type :=
No_external_call_labeled
lst
->
No_external_call_labeled
(
LScons
l
st
lst
).
Axiom
No_SBuiltin
:
forall
s
,
No_external_call
s
.
Axiom
Allfunction_Internal
:
forall
(
f
:
fundef
),
exists
fd
,
f
=
Internal
fd
.
(
**
=====================================================
*
)
(
**
Axiom
that
external
call
are
deterministic
*
)
(
**
This
axiom
state
that
for
every
execution
of
external
function
from
a
same
memory
state
with
the
same
argument
,
than
it
will
produce
the
same
trace
*
)
Axiom
external_call_same_trace
:
(
**
Axiom
external_call_same_trace
:
forall
ef
ge
vargs
m
t1
t2
vres1
vres2
m1
m2
,
external_call
ef
ge
vargs
m
t1
vres1
m1
->
external_call
ef
ge
vargs
m
t2
vres2
m2
->
t1
=
t2
.
->
t1
=
t2
.
*
)
(
**
External
call
is
deterministic
using
the
previous
awioms
*
)
(
**
Lemma
external_call_deterministic
:
forall
ef
ge
vargs
m
t1
t2
vres1
vres2
m1
m2
,
external_call
ef
ge
vargs
m
t1
vres1
m1
...
...
@@ -405,7 +413,7 @@ Proof.
destruct
Heq
as
[
Hm
Heq
'
].
have
H
'
:=
(
external_call_same_trace
Hex
Hex
'
).
subst
.
by
destruct
Heq
'
.
Qed
.
Qed
.
*
)
(
**
Clight
Step
is
deterministic
*
)
Lemma
clight_step_deterministic
:
...
...
@@ -443,12 +451,14 @@ Proof.
all:
destruct
H12
as
[
H
'
|
H
'
];
by
inversion
H
'
.
}
(
*
Sbuiltin
*
)
{
inversion
Hstep
;
subst
.
{
have
contra
:=
(
No_SBuiltin
(
Sbuiltin
optid
ef
tyargs
al
)).
inversion
contra
.
(
**
inversion
Hstep
;
subst
.
have
Hv
:=
(
eval_exprlist_deterministic
H
H12
).
subst
.
destruct
(
external_call_deterministic
H0
H13
)
as
[
Ht
[
Hvres
Hm
]].
by
subst
.
all:
destruct
H9
as
[
H
'
|
H
'
];
by
inversion
H
'
.
}
all:
destruct
H9
as
[
H
'
|
H
'
];
by
inversion
H
'
.
*
)
}
(
*
Sequence
*
)
{
inversion
Hstep
;
subst
=>
//.
...
...
@@ -519,9 +529,12 @@ Proof.
by
subst
.
}
(
*
External
call
*
)
{
inversion
Hstep
;
subst
.
{
destruct
(
Allfunction_Internal
(
External
ef
targs
tres
cconv
))
as
[
idf
contra
].
inversion
contra
.
(
**
inversion
Hstep
;
subst
.
destruct
(
external_call_deterministic
H
H9
)
as
[
Ht
[
Hvres
Hm
]].
by
subst
.
}
by
subst
.
*
)
}
Qed
.
...
...
@@ -607,8 +620,10 @@ Proof.
inversion
Hs
;
subst
;
inversion
Hs
'
;
subst
.
-
destruct
(
function_entry2_deterministic
H5
H6
)
as
[
He
[
Hle
Hm
]].
by
subst
.
-
destruct
(
external_call_deterministic
H5
H9
)
as
[
Ht
[
Hvres
Hm
]].
by
subst
.
-
destruct
(
Allfunction_Internal
(
External
ef
targs
tres
cconv
))
as
[
idf
contra
].
inversion
contra
.
(
**
destruct
(
external_call_deterministic
H5
H9
)
as
[
Ht
[
Hvres
Hm
]].
by
subst
.
*
)
Qed
.
(
**
Step
function
is
deterministic
under
the
condition
that
the
function
...
...
This diff is collapsed.
Click to expand it.
Preview
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!
Save comment
Cancel
Please
register
or
sign in
to comment