Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
F
FloVer
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
5
Issues
5
List
Boards
Labels
Service Desk
Milestones
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
AVA
FloVer
Commits
d02988ff
Commit
d02988ff
authored
Feb 05, 2018
by
Heiko Becker
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Try fixing translator, not working yet
parent
a28258ab
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
10 additions
and
10 deletions
+10
-10
coq/ErrorValidation.v
coq/ErrorValidation.v
+4
-4
hol4/cakeml
hol4/cakeml
+1
-1
hol4/daisyParserScript.sml
hol4/daisyParserScript.sml
+3
-3
hol4/transScript.sml
hol4/transScript.sml
+2
-2
No files found.
coq/ErrorValidation.v
View file @
d02988ff
...
...
@@ -230,12 +230,12 @@ Proof.
apply
RmaxAbs
;
eauto
.
Qed
.
Lemma
validErrorboundCorrectConstant_eval
E1
E2
A
m
n
nR
Gamma
:
eval_exp
E1
(
toRMap
defVars
)
(
toREval
(
toRExp
(
Const
m
n
)))
nR
M0
->
Lemma
validErrorboundCorrectConstant_eval
E1
E2
m
n
nR
Gamma
:
eval_exp
E1
(
toRMap
Gamma
)
(
toREval
(
toRExp
(
Const
m
n
)))
nR
M0
->
exists
nF
m
'
,
eval_exp
E2
defVars
(
toRExp
(
Const
m
n
))
nF
m
'
.
eval_exp
E2
Gamma
(
toRExp
(
Const
m
n
))
nF
m
'
.
Proof
.
intros
eval_real
subexpr_ok
error_valid
intv_valid
A_const
.
intros
eval_real
.
repeat
eexists
.
econstructor
.
rewrite
Rabs_eq_Qabs
.
...
...
cakeml
@
19c41e5b
Compare
c760e35a
...
19c41e5b
Subproject commit
c760e35a371970c83a07a154bb67d4b842115a1f
Subproject commit
19c41e5bac090d86a4245e2b6054ef710c42a402
hol4/daisyParserScript.sml
View file @
d02988ff
open
preamble
open
AbbrevsTheory
MachineTypeTheory
ExpressionsTheory
CommandsTheory
open
AbbrevsTheory
MachineTypeTheory
ExpressionsTheory
CommandsTheory
DaisyMapTheory
val
_
=
new_theory
"daisyParser"
;
...
...
@@ -377,11 +377,11 @@ val parsePrecond_def = Define `
|
_
=>
NONE`
;
val
defaultAbsenv_def
=
Define
`defaultAbsenv
:
analysisResult
=
\
e
.
((
0
,
0
),
0
)
`
;
`defaultAbsenv
:
analysisResult
=
DaisyMapTree_empty
`
;
val
updAbsenv_def
=
Define
`updAbsenv
(
e
:
real
exp
)
(
iv
:
interval
)
(
err
:
real
)
(
A
:
analysisResult
)
=
\
e'
.
if
(
e
=
e'
)
then
(
iv
,
err
)
else
A
e'
`
;
DaisyMapTree_insert
e
(
iv
,
err
)
A
`
;
(*
* Abstract environment parser: *)
(*
The abstract environment should be encoded in the following format: *)
...
...
hol4/transScript.sml
View file @
d02988ff
open
preamble
open
simpLib
realTheory
realLib
RealArith
stringTheory
open
simpLib
(*
realTheory *)
realLib
RealArith
stringTheory
open
ml_translatorTheory
ml_translatorLib
real
ProgTheory
cfTacticsLib
ioProgLib
open
ml_translatorTheory
ml_translatorLib
Rat
ProgTheory
cfTacticsLib
ioProgLib
open
AbbrevsTheory
ExpressionsTheory
RealSimpsTheory
ExpressionAbbrevsTheory
ErrorBoundsTheory
IntervalArithTheory
DaisyTactics
IntervalValidationTheory
...
...
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