src/HOL/Integ/Ring.thy
author nipkow
Fri, 29 Nov 1996 15:11:37 +0100
changeset 2281 e00c13a29eda
permissions -rw-r--r--
Ring Theory.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2281
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     1
(*  Title:      HOL/Integ/Ring.thy
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     2
    ID:         $Id$
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     3
    Author:     Tobias Nipkow
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     4
    Copyright   1996 TU Muenchen
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     5
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     6
Bits of rings.
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     7
Main output: a simplification tactic for commutative rings.
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     8
*)
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
     9
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    10
Ring = Group +
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    11
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    12
(* Ring *)
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    13
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    14
axclass  ring < add_agroup, times
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    15
  times_assoc "(x*y)*z = x*(y*z)"
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    16
  distribL    "x*(y+z) = x*y + x*z"
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    17
  distribR    "(x+y)*z = x*z + y*z"
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    18
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    19
(* Commutative ring *)
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    20
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    21
axclass cring < ring
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    22
  times_commute "x*y = y*x"
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    23
e00c13a29eda Ring Theory.
nipkow
parents:
diff changeset
    24
end