src/HOL/Integ/IntRingDefs.ML
author wenzelm
Thu Jan 23 14:19:16 1997 +0100 (1997-01-23)
changeset 2545 d10abc8c11fb
parent 2281 e00c13a29eda
child 4423 a129b817b58a
permissions -rw-r--r--
added AxClasses test;
nipkow@2281
     1
(*  Title:      HOL/Integ/IntRingDefs.thy
nipkow@2281
     2
    ID:         $Id$
nipkow@2281
     3
    Author:     Tobias Nipkow and Markus Wenzel
nipkow@2281
     4
    Copyright   1996 TU Muenchen
nipkow@2281
     5
nipkow@2281
     6
*)
nipkow@2281
     7
nipkow@2281
     8
open IntRingDefs;
nipkow@2281
     9
nipkow@2281
    10
goalw thy [zero_int_def,zdiff_def] "(zero-x)+(x::int) = zero";
nipkow@2281
    11
by(Simp_tac 1);
nipkow@2281
    12
qed "left_inv_int";
nipkow@2281
    13
nipkow@2281
    14
goalw thy [zero_int_def,zdiff_def] "x-y = (x::int) + (zero-y)";
nipkow@2281
    15
by(Simp_tac 1);
nipkow@2281
    16
qed "minus_inv_int";