Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
F
flocq
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Flocq
flocq
Commits
277dd132
Commit
277dd132
authored
Dec 03, 2014
by
Guillaume Melquiond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Partly adapt to Coq 8.5.
parent
c9694253
Changes
5
Show whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
4 additions
and
7 deletions
+4
-7
Remakefile.in
Remakefile.in
+1
-1
src/Appli/Fappli_IEEE.v
src/Appli/Fappli_IEEE.v
+1
-2
src/Core/Fcore_FLT.v
src/Core/Fcore_FLT.v
+0
-1
src/Core/Fcore_FTZ.v
src/Core/Fcore_FTZ.v
+0
-1
src/Core/Fcore_rnd.v
src/Core/Fcore_rnd.v
+2
-2
No files found.
Remakefile.in
View file @
277dd132
...
...
@@ -58,7 +58,7 @@ configure config.status: configure.in
%.vo: %.v
@COQDEP@ -R src Flocq $< | @REMAKE@ -r $@
@COQC@ -R src Flocq
-dont-load-proofs
$<
@COQC@ -R src Flocq $<
clean:
rm -f $(OBJS) $(EOBJS) src/*.glob examples/*.glob
...
...
src/Appli/Fappli_IEEE.v
View file @
277dd132
...
...
@@ -931,7 +931,6 @@ destruct (truncate radix2 fexp (Z0, e1, loc_Exact)) as ((m2, e2), l2).
rewrite
shr_m_shr_record_of_loc
.
intros
Hm2
.
rewrite
Hm2
.
intros
z
.
repeat
split
.
rewrite
Rlt_bool_true
.
repeat
split
.
...
...
@@ -1482,7 +1481,7 @@ elim Rle_not_lt with (1 := Bz).
generalize
(
bounded_lt_emax
_
_
Hx
)
(
bounded_lt_emax
_
_
Hy
)
(
andb_prop
_
_
Hx
)
(
andb_prop
_
_
Hy
).
intros
Bx
By
(
Hx
'
,
_
)
(
Hy
'
,
_
).
generalize
(
canonic_canonic_mantissa
sx
_
_
Hx
'
)
(
canonic_canonic_mantissa
sy
_
_
Hy
'
).
clear
-
Bx
By
Hs
.
clear
-
Bx
By
Hs
prec_gt_0_
.
intros
Cx
Cy
.
destruct
sx
.
(
*
...
*
)
...
...
src/Core/Fcore_FLT.v
View file @
277dd132
...
...
@@ -222,7 +222,6 @@ Theorem generic_format_FLT_FIX :
generic_format
beta
(
FIX_exp
emin
)
x
->
generic_format
beta
FLT_exp
x
.
Proof
with
auto
with
typeclass_instances
.
clear
prec_gt_0_
.
apply
generic_inclusion_le
...
intros
e
He
.
unfold
FIX_exp
.
...
...
src/Core/Fcore_FTZ.v
View file @
277dd132
...
...
@@ -182,7 +182,6 @@ Theorem FTZ_format_FLXN :
(
bpow
(
emin
+
prec
-
1
)
<=
Rabs
x
)
%
R
->
FLXN_format
beta
prec
x
->
FTZ_format
x
.
Proof
.
clear
prec_gt_0_
.
intros
x
Hx
Fx
.
apply
FTZ_format_generic
.
apply
generic_format_FLXN
in
Fx
.
...
...
src/Core/Fcore_rnd.v
View file @
277dd132
...
...
@@ -39,7 +39,7 @@ exists f.
intros
g
Hg
.
now
apply
H2
with
(
3
:=
Rle_refl
x
).
(
*
.
*
)
exists
(
proj
T1
(
completeness
_
H3
H1
)).
exists
(
proj
1_sig
(
completeness
_
H3
H1
)).
destruct
completeness
as
(
f1
,
(
H4
,
H5
)).
simpl
.
destruct
H1
as
(
f2
,
H1
).
...
...
@@ -58,7 +58,7 @@ Theorem round_fun_of_pred :
{
f
:
R
->
R
|
forall
x
,
rnd
x
(
f
x
)
}
.
Proof
.
intros
rnd
H
.
exists
(
fun
x
=>
proj
T1
(
round_val_of_pred
rnd
H
x
)).
exists
(
fun
x
=>
proj
1_sig
(
round_val_of_pred
rnd
H
x
)).
intros
x
.
now
destruct
round_val_of_pred
as
(
f
,
H1
).
Qed
.
...
...
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