Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Flocq
flocq
Commits
eaa9655d
Commit
eaa9655d
authored
Sep 11, 2015
by
Guillaume Melquiond
Browse files
Ensure compatibility with Coq 8.5.
parent
f5709f0c
Changes
5
Hide whitespace changes
Inline
Side-by-side
examples/Cody_Waite.v
View file @
eaa9655d
Require
Import
Reals
Fcore
.
Require
Import
Gappa_tactic
Interval_tactic
.
Require
Import
Gappa
.
Gappa_tactic
Interval
.
Interval_tactic
.
Open
Scope
R_scope
.
...
...
examples/Compute.v
View file @
eaa9655d
...
...
@@ -35,7 +35,7 @@ now apply F2R_ge_0_compat.
Qed
.
Definition
plus
(
x
y
:
float
beta
)
:=
let
'
(
Float
m
e
)
:=
Fplus
beta
x
y
in
let
(
m
,
e
)
:=
Fplus
beta
x
y
in
let
s
:=
Zlt_bool
m
0
in
let
'
(
m
'
,
e
'
,
l
)
:=
truncate
beta
fexp
(
Zabs
m
,
e
,
loc_Exact
)
in
Float
beta
(
cond_Zopp
s
(
choice
s
m
'
l
))
e
'
.
...
...
@@ -58,7 +58,7 @@ apply sym_eq, F2R_Zabs.
Qed
.
Definition
mult
(
x
y
:
float
beta
)
:=
let
'
(
Float
m
e
)
:=
Fmult
beta
x
y
in
let
(
m
,
e
)
:=
Fmult
beta
x
y
in
let
s
:=
Zlt_bool
m
0
in
let
'
(
m
'
,
e
'
,
l
)
:=
truncate
beta
fexp
(
Zabs
m
,
e
,
loc_Exact
)
in
Float
beta
(
cond_Zopp
s
(
choice
s
m
'
l
))
e
'
.
...
...
@@ -81,7 +81,7 @@ apply sym_eq, F2R_Zabs.
Qed
.
Definition
sqrt
(
x
:
float
beta
)
:=
let
'
(
Float
m
e
)
:=
x
in
let
(
m
,
e
)
:=
x
in
if
Zlt_bool
0
m
then
let
'
(
m
'
,
e
'
,
l
)
:=
truncate
beta
fexp
(
Fsqrt_core
beta
prec
m
e
)
in
Float
beta
(
choice
false
m
'
l
)
e
'
...
...
@@ -162,8 +162,8 @@ now elim Hy0.
Qed
.
Definition
div
(
x
y
:
float
beta
)
:=
let
'
(
Float
mx
ex
)
:=
x
in
let
'
(
Float
my
ey
)
:=
y
in
let
(
mx
,
ex
)
:=
x
in
let
(
my
,
ey
)
:=
y
in
if
Zeq_bool
mx
0
then
Float
beta
0
0
else
let
'
(
m
,
e
,
l
)
:=
truncate
beta
fexp
(
Fdiv_core
beta
prec
(
Zabs
mx
)
ex
(
Zabs
my
)
ey
)
in
...
...
examples/Division_u16.v
View file @
eaa9655d
Require
Import
Reals
Psatz
.
Require
Import
Fcore
Gappa_tactic
.
Require
Import
Fcore
Gappa
.
Gappa_tactic
.
Open
Scope
R_scope
.
...
...
examples/Sqrt_sqr.v
View file @
eaa9655d
Require
Import
Fcore
.
Require
Import
Interval_tactic
.
Require
Import
Interval
.
Interval_tactic
.
Section
Sec1
.
...
...
examples/Triangle.v
View file @
eaa9655d
...
...
@@ -3,7 +3,7 @@ Require Import Fcore.
Require
Import
Fprop_relative
.
Require
Import
Fprop_Sterbenz
.
Require
Import
Fcalc_ops
.
Require
Import
Interval_tactic
.
Require
Import
Interval
.
Interval_tactic
.
Section
Delta_FLX
.
Open
Scope
R_scope
.
...
...
Write
Preview
Supports
Markdown
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