| author | Walther Neuper <neuper@ist.tugraz.at> |
| Thu, 12 Aug 2010 11:02:32 +0200 | |
| branch | isac-update-Isa09-2 |
| changeset 37906 | e2b23ba9df13 |
| permissions | -rw-r--r-- |
| neuper@37906 | 1 |
(* simplification of terms |
| neuper@37906 | 2 |
author: Walther Neuper 050912 |
| neuper@37906 | 3 |
(c) due to copyright terms |
| neuper@37906 | 4 |
|
| neuper@37906 | 5 |
remove_thy"Simplify"; |
| neuper@37906 | 6 |
use_thy"~/proto2/isac/src/sml/IsacKnowledge/Simplify"; |
| neuper@37906 | 7 |
|
| neuper@37906 | 8 |
use_thy_only"~/proto2/isac/src/sml/IsacKnowledge/Simplify"; |
| neuper@37906 | 9 |
use_thy"~/proto2/isac/src/sml/IsacKnowledge/Isac"; |
| neuper@37906 | 10 |
*) |
| neuper@37906 | 11 |
|
| neuper@37906 | 12 |
Simplify = Atools + |
| neuper@37906 | 13 |
|
| neuper@37906 | 14 |
consts |
| neuper@37906 | 15 |
|
| neuper@37906 | 16 |
(*descriptions in the related problem*) |
| neuper@37906 | 17 |
term :: real => una |
| neuper@37906 | 18 |
normalform :: real => una |
| neuper@37906 | 19 |
|
| neuper@37906 | 20 |
(*the CAS-command*) |
| neuper@37906 | 21 |
Simplify :: "real => real" (*"Simplify (1+2a+3+4a)*) |
| neuper@37906 | 22 |
Vereinfache :: "real => real" (*"Vereinfache (1+2a+3+4a)*) |
| neuper@37906 | 23 |
|
| neuper@37906 | 24 |
(*Script-name*) |
| neuper@37906 | 25 |
SimplifyScript :: "[real, real] => real" |
| neuper@37906 | 26 |
("((Script SimplifyScript (_ =))// (_))" 9)
|
| neuper@37906 | 27 |
|
| neuper@37906 | 28 |
|
| neuper@37906 | 29 |
end |