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