| author | nipkow |
| Mon, 20 Jul 1998 16:04:53 +0200 | |
| changeset 5162 | 53e505c6019c |
| parent 5078 | 7b5ea59c0275 |
| child 5227 | e5a6ace920a0 |
| permissions | -rw-r--r-- |
| 5078 | 1 |
(* Title: HOL/Integ/IntRingDefs.thy |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow and Markus Wenzel |
|
4 |
Copyright 1996 TU Muenchen |
|
5 |
||
6 |
*) |
|
7 |
||
8 |
open IntRingDefs; |
|
9 |
||
10 |
Goalw [zero_int_def,zdiff_def] "(zero-x)+(x::int) = zero"; |
|
11 |
by (Simp_tac 1); |
|
12 |
qed "left_inv_int"; |
|
13 |
||
14 |
Goalw [zero_int_def,zdiff_def] "x-y = (x::int) + (zero-y)"; |
|
15 |
by (Simp_tac 1); |
|
16 |
qed "minus_inv_int"; |