| author | Walther Neuper <neuper@ist.tugraz.at> |
| Wed, 21 Jul 2010 13:53:39 +0200 | |
| branch | isac-from-Isabelle2009-2 |
| changeset 37871 | 875b6efa7ced |
| permissions | -rw-r--r-- |
| neuper@37871 | 1 |
(* imaginary unit, close to traditional notation in algebra systems; |
| neuper@37871 | 2 |
types questionable, see Isabelle/HOL/Real/Complex_Numbers.thy |
| neuper@37871 | 3 |
|
| neuper@37871 | 4 |
use_thy_only"IsacKnowledge/Complex"; |
| neuper@37871 | 5 |
use_thy_only"Complex"; |
| neuper@37871 | 6 |
|
| neuper@37871 | 7 |
use_thy"knowledge/Complex"; |
| neuper@37871 | 8 |
use_thy"Complex"; |
| neuper@37871 | 9 |
*) |
| neuper@37871 | 10 |
|
| neuper@37871 | 11 |
|
| neuper@37871 | 12 |
Complex = Float + |
| neuper@37871 | 13 |
|
| neuper@37871 | 14 |
consts |
| neuper@37871 | 15 |
(* waere auch eine Moeglichkeit |
| neuper@37871 | 16 |
"I'_'_" :: "real => real" ("_ I'_'_" [999] 998)
|
| neuper@37871 | 17 |
*) |
| neuper@37871 | 18 |
"I'_'_" :: "real" ("I'_'_")
|
| neuper@37871 | 19 |
|
| neuper@37871 | 20 |
rules |
| neuper@37871 | 21 |
(* waere auch eine Moeglichkeit |
| neuper@37871 | 22 |
add_I "a I__ + b I__ = (a + b) I__" |
| neuper@37871 | 23 |
mult_I "a I__ * b I__ = -1 * a * b" |
| neuper@37871 | 24 |
*) |
| neuper@37871 | 25 |
square_I "I__ * I__ = -1" |
| neuper@37871 | 26 |
|
| neuper@37871 | 27 |
end |