Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
AVA
FloVer
Commits
62cc26e2
Commit
62cc26e2
authored
Mar 09, 2017
by
Heiko Becker
Browse files
Minor changes to translation script
parent
de713a0d
Changes
1
Show whitespace changes
Inline
Side-by-side
hol4/transScript.sml
View file @
62cc26e2
...
...
@@ -2,7 +2,7 @@ open preamble
open
simpLib
realTheory
realLib
RealArith
open
ml_translatorTheory
ml_translatorLib
realProgTheory
;
open
a
bbrevsTheory
e
xpressionsTheory
RealSimpsTheory
open
A
bbrevsTheory
E
xpressionsTheory
RealSimpsTheory
open
ExpressionAbbrevsTheory
ErrorBoundsTheory
IntervalArithTheory
open
IntervalValidationTheory
EnvironmentsTheory
CommandsTheory
ssaPrgsTheory
open
CertificateCheckerTheory
...
...
@@ -11,16 +11,6 @@ val _ = new_theory "trans";
val
_
=
translation_extends
"realProg"
;
(*
TODO:
- for fast EVAL and good ML code, use sptrees to represent sets of
natural numbers (sptreeTheory in HOL) use type `:num_set` which is
an abbreviation for `:unit spt`
*)
(*
for recursive translation *)
fun
def_of_const
tm
=
let
...
...
@@ -42,8 +32,6 @@ val _ = (find_def_for_const := def_of_const);
(*
/ for recursive translation *)
val
_
=
translate
IntervalValidationTheory
.
freeVars_def
val
divideInterval_v_thm
=
translate
divideInterval_def
;
val
supersetInterval_v_thm
=
translate
isSupersetInterval_def
;
...
...
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