| author | wenzelm |
| Thu, 13 Apr 2000 15:01:45 +0200 | |
| changeset 8702 | 78b7010db847 |
| parent 5601 | b6456ccd9e3e |
| permissions | -rw-r--r-- |
| 5601 | 1 |
(* Title: HOL/ex/IntRingDefs.thy |
| 5078 | 2 |
ID: $Id$ |
3 |
Author: Tobias Nipkow and Markus Wenzel |
|
4 |
Copyright 1996 TU Muenchen |
|
5 |
*) |
|
6 |
||
7 |
Goalw [zero_int_def,zdiff_def] "(zero-x)+(x::int) = zero"; |
|
8 |
by (Simp_tac 1); |
|
9 |
qed "left_inv_int"; |
|
10 |
||
11 |
Goalw [zero_int_def,zdiff_def] "x-y = (x::int) + (zero-y)"; |
|
12 |
by (Simp_tac 1); |
|
13 |
qed "minus_inv_int"; |