src/HOL/Complex/NSComplexBin.thy
author kleing
Tue, 23 Dec 2003 06:35:41 +0100
changeset 14316 91b897b9a2dc
parent 13957 10dbf16be15f
permissions -rw-r--r--
added some [intro?] and [trans] for list_all2 lemmas
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
13957
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     1
(*  Title:      NSComplexBin.thy
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     2
    Author:     Jacques D. Fleuriot
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     3
    Copyright:  2001 University of Edinburgh
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     4
    Descrition: Binary arithmetic for the nonstandard complex numbers
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     5
                This case is reduced to that for the complexes (hence reals).
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     6
*)
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     7
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     8
NSComplexBin = NSComplex + 
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
     9
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    10
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    11
instance
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    12
  hcomplex :: number 
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    13
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    14
defs
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    15
  hcomplex_number_of_def
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    16
    "number_of v == hcomplex_of_complex (number_of v)"
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    17
     (*::bin=>complex               ::bin=>complex*)
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    18
10dbf16be15f new session Complex for the complex numbers
paulson
parents:
diff changeset
    19
end