author | wenzelm |
Mon, 16 Nov 1998 10:41:08 +0100 | |
changeset 5869 | b279a84ac11c |
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"; |