Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
AVA
FloVer
Commits
bc7e855e
Commit
bc7e855e
authored
Feb 13, 2019
by
Joachim Bard
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
remove unnecassary admits
parent
58137a95
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
coq/ssaPrgs.v
coq/ssaPrgs.v
+5
-5
No files found.
coq/ssaPrgs.v
View file @
bc7e855e
...
...
@@ -581,7 +581,7 @@ Fixpoint expr_subst (e:expr Q) x e_new :=
(
*
simpl
in
*
.
*
)
(
*
rewrite
<-
expr_subst_correct
in
H0
;
eauto
.
*
)
(
*
econstructor
;
eauto
.
*
)
(
*
A
dmitted
.
*
)
(
*
A
bort
.
*
)
(
*
Fixpoint
let_subst
(
f
:
cmd
Q
)
:=
*
)
(
*
match
f
with
*
)
...
...
@@ -627,7 +627,7 @@ Fixpoint expr_subst (e:expr Q) x e_new :=
(
*
destruct
x_live
as
[
x_used
|
x_live
].
*
)
(
*
+
exists
E
.
eapply
eval_subst_subexpr
;
eauto
.
*
)
(
*
+
eapply
IHf
;
eauto
.
*
)
(
*
A
dmitted
.
*
)
(
*
A
bort
.
*
)
(
*
-
simpl
in
*
.
*
)
(
*
inversion
eval_f
;
subst
.
*
)
(
*
exists
E
.
eapply
eval_subst_subexpr
;
eauto
.
*
)
...
...
@@ -677,7 +677,7 @@ Fixpoint expr_subst (e:expr Q) x e_new :=
(
*
destruct
x_live
as
[
x_used
|
x_live
].
*
)
(
*
+
eapply
eval_subst_subexpr
;
eauto
.
*
)
(
*
+
edestruct
IHg
as
[
v0
eval_v0
];
eauto
.
*
)
(
*
A
dmitted
.
*
)
(
*
A
bort
.
*
)
(
*
Theorem
let_free_agree
f
E
vR
inVars
outVars
e
defVars
:
*
)
(
*
ssa
f
inVars
outVars
->
*
)
...
...
@@ -695,7 +695,7 @@ Fixpoint expr_subst (e:expr Q) x e_new :=
(
*
(
*
Let
Case
,
prove
that
the
value
of
the
let
binding
must
be
used
somewhere
*
)
*
)
(
*
-
case_eq
(
let_subst
s
).
*
)
(
*
+
intros
e0
subst_s
;
rewrite
subst_s
in
*
.
*
)
(
*
A
dmitted
.
*
)
(
*
A
bort
.
*
)
(
*
(
*
inversion
subst_step
;
subst
.
*
)
(
*
clear
subst_s
subst_step
.
*
)
(
*
inversion
bstep_e
;
subst
.
*
)
...
...
@@ -726,7 +726,7 @@ Fixpoint expr_subst (e:expr Q) x e_new :=
(
*
-
simpl
.
*
)
(
*
inversion
bstep_f
;
subst
.
*
)
(
*
inversion
ssa_f
;
subst
.
*
)
(
*
A
dmitted
.
*
)
(
*
A
bort
.
*
)
(
*
(
*
case_eq
(
let_subst
f
).
*
)
(
*
+
intros
f_subst
subst_f_eq
.
*
)
(
*
specialize
(
IHf
(
updEnv
n
REAL
v
E
)
vR
(
NatSet
.
add
n
inVars
)
outVars
f_subst
H9
H7
subst_f_eq
).
*
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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