Mentions légales du service
Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
F
flocq
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container registry
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Flocq
flocq
Commits
cbb451bf
Commit
cbb451bf
authored
7 years ago
by
Guillaume Melquiond
Browse files
Options
Downloads
Patches
Plain Diff
Fix example.
parent
bea08189
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
examples/Triangle.v
+6
-18
6 additions, 18 deletions
examples/Triangle.v
with
6 additions
and
18 deletions
examples/Triangle.v
+
6
−
18
View file @
cbb451bf
...
...
@@ -1340,15 +1340,15 @@ apply generic_format_FLT.
apply
FLT_format_generic
in
Fx1
;
apply
FLT_format_generic
in
Fx2
...
destruct
Fx1
as
[
f
Hf1
Hf2
Hf3
].
destruct
Fx2
as
[
g
Hg1
Hg2
Hg3
].
exists
(
Fplus
beta
f
g
).
exists
(
Fplus
f
g
).
now
rewrite
F2R_plus
,
Hf1
,
Hg1
.
apply
lt_IZR
.
rewrite
abs_IZR
.
rewrite
IZR_Zpower
.
2
:
auto
with
zarith
.
apply
Rmult_lt_reg_r
with
(
bpow
(
Fexp
(
Fplus
beta
f
g
))).
apply
Rmult_lt_reg_r
with
(
bpow
(
Fexp
(
Fplus
f
g
))).
apply
bpow_gt_0
.
apply
Rle_lt_trans
with
(
Rabs
(
F2R
(
Fplus
beta
f
g
))).
apply
Rle_lt_trans
with
(
Rabs
(
F2R
(
Fplus
f
g
))).
right
;
unfold
F2R
;
rewrite
Rabs_mult
.
apply
f_equal
.
apply
sym_eq
,
Rabs_right
.
...
...
@@ -1357,7 +1357,7 @@ rewrite F2R_plus, <- Hf1, <- Hg1.
apply
Rlt_le_trans
with
(
1
:=
Y
).
rewrite
<-
bpow_plus
.
apply
bpow_le
.
assert
(
emin
<=
Fexp
(
Fplus
beta
f
g
))
%
Z
.
assert
(
emin
<=
Fexp
(
Fplus
f
g
))
%
Z
.
rewrite
Fexp_Fplus
.
now
apply
Zmin_case
.
omega
.
...
...
@@ -2155,12 +2155,12 @@ rewrite Hf1.
apply
Rle_trans
with
(
1
:=
RRle_abs
_
).
rewrite
<-
F2R_abs
.
unfold
F2R
;
rewrite
bpow_plus
.
replace
(
Fexp
(
Fabs
beta
f
))
with
(
Fexp
f
).
replace
(
Fexp
(
Fabs
f
))
with
(
Fexp
f
).
apply
Rmult_le_compat_r
.
apply
bpow_ge_0
.
rewrite
<-
IZR_Zpower
.
left
;
apply
IZR_lt
.
replace
(
Fnum
(
Fabs
beta
f
))
with
(
Zabs
(
Fnum
f
)).
replace
(
Fnum
(
Fabs
f
))
with
(
Zabs
(
Fnum
f
)).
assumption
.
destruct
f
;
unfold
Fabs
;
reflexivity
.
omega
.
...
...
@@ -2211,15 +2211,3 @@ omega.
Qed
.
End
Hyp_ok_
.
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
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