author | paulson |
Tue, 23 Dec 2003 18:26:03 +0100 | |
changeset 14326 | c817dd885a32 |
child 14335 | 9c0b5e081037 |
permissions | -rw-r--r-- |
14326 | 1 |
(* Title: NSComplexArith |
2 |
Author: Lawrence C. Paulson |
|
3 |
Copyright: 2003 University of Cambridge |
|
4 |
||
5 |
Common factor cancellation |
|
6 |
*) |
|
7 |
||
8 |
theory NSComplexArith = NSComplexBin |
|
9 |
files "hcomplex_arith.ML": |
|
10 |
||
11 |
subsubsection{*Division By @{term "-1"}*} |
|
12 |
||
13 |
lemma hcomplex_divide_minus1 [simp]: "x/-1 = -(x::hcomplex)" |
|
14 |
by simp |
|
15 |
||
16 |
lemma hcomplex_minus1_divide [simp]: "-1/(x::hcomplex) = - (1/x)" |
|
17 |
by (simp add: hcomplex_divide_def hcomplex_minus_inverse) |
|
18 |
||
19 |
end |