author | Walther Neuper <wneuper@ist.tugraz.at> |
Tue, 18 Oct 2016 12:05:03 +0200 | |
changeset 59252 | 7d3dbc1171ff |
parent 59250 | 727dff4f6b2c |
child 59253 | f0bb15a046ae |
permissions | -rw-r--r-- |
neuper@41905 | 1 |
(* Title: collect all defitions for the Lucas-Interpreter |
neuper@41905 | 2 |
Author: Walther Neuper 110226 |
neuper@41905 | 3 |
(c) due to copyright terms |
neuper@41905 | 4 |
*) |
neuper@41905 | 5 |
|
neuper@48761 | 6 |
theory Interpret |
neuper@48880 | 7 |
imports "~~/src/Tools/isac/ProgLang/ProgLang" |
neuper@41905 | 8 |
begin |
neuper@55275 | 9 |
ML_file "~~/src/Tools/isac/Interpret/mstools.sml" |
neuper@55275 | 10 |
ML_file "~~/src/Tools/isac/Interpret/ctree.sml" |
neuper@55275 | 11 |
ML_file "~~/src/Tools/isac/Interpret/ptyps.sml" |
wneuper@59252 | 12 |
ML {* |
wneuper@59252 | 13 |
Rewrite'; (*thm' vvv*) |
wneuper@59252 | 14 |
fun thm'_to_thm'' ((thmID, str) : thm') = (thmID, str2term str) : thm'' (*TODO: id + remove*) |
wneuper@59252 | 15 |
fun thm''_to_thm' ((thmID, trm) : thm'') = (thmID, term2str trm) : thm' (*TODO: id + remove*); |
wneuper@59252 | 16 |
Rewrite; (*thm'' ^^^*) |
wneuper@59252 | 17 |
*} |
neuper@55275 | 18 |
ML_file "~~/src/Tools/isac/Interpret/generate.sml" |
neuper@55275 | 19 |
ML_file "~~/src/Tools/isac/Interpret/calchead.sml" |
neuper@55275 | 20 |
ML_file "~~/src/Tools/isac/Interpret/appl.sml" |
neuper@55275 | 21 |
ML_file "~~/src/Tools/isac/Interpret/rewtools.sml" |
neuper@55275 | 22 |
ML_file "~~/src/Tools/isac/Interpret/script.sml" |
neuper@55275 | 23 |
ML_file "~~/src/Tools/isac/Interpret/solve.sml" |
neuper@55275 | 24 |
ML_file "~~/src/Tools/isac/Interpret/inform.sml" |
neuper@55275 | 25 |
ML_file "~~/src/Tools/isac/Interpret/mathengine.sml" |
wneuper@59250 | 26 |
ML {* |
wneuper@59250 | 27 |
*} ML {* |
wneuper@59250 | 28 |
*} |
neuper@41905 | 29 |
end |