src/HOL/Integ/Ring.thy
author wenzelm
Thu Jan 23 14:19:16 1997 +0100 (1997-01-23)
changeset 2545 d10abc8c11fb
parent 2281 e00c13a29eda
permissions -rw-r--r--
added AxClasses test;
nipkow@2281
     1
(*  Title:      HOL/Integ/Ring.thy
nipkow@2281
     2
    ID:         $Id$
nipkow@2281
     3
    Author:     Tobias Nipkow
nipkow@2281
     4
    Copyright   1996 TU Muenchen
nipkow@2281
     5
nipkow@2281
     6
Bits of rings.
nipkow@2281
     7
Main output: a simplification tactic for commutative rings.
nipkow@2281
     8
*)
nipkow@2281
     9
nipkow@2281
    10
Ring = Group +
nipkow@2281
    11
nipkow@2281
    12
(* Ring *)
nipkow@2281
    13
nipkow@2281
    14
axclass  ring < add_agroup, times
nipkow@2281
    15
  times_assoc "(x*y)*z = x*(y*z)"
nipkow@2281
    16
  distribL    "x*(y+z) = x*y + x*z"
nipkow@2281
    17
  distribR    "(x+y)*z = x*z + y*z"
nipkow@2281
    18
nipkow@2281
    19
(* Commutative ring *)
nipkow@2281
    20
nipkow@2281
    21
axclass cring < ring
nipkow@2281
    22
  times_commute "x*y = y*x"
nipkow@2281
    23
nipkow@2281
    24
end