author | nipkow |
Mon, 13 May 2002 15:27:28 +0200 | |
changeset 13145 | 59bc43b51aa2 |
parent 11093 | 62c2e0af1d30 |
permissions | -rw-r--r-- |
7998 | 1 |
(* |
2 |
Instantiate polynomials to form a ring and prove further properties |
|
3 |
$Id$ |
|
4 |
Author: Clemens Ballarin, started 20 January 1997 |
|
5 |
*) |
|
6 |
||
7 |
PolyRing = UnivPoly + |
|
8 |
||
9 |
instance |
|
10 |
up :: (ring) ring |
|
11 |
(up_a_assoc, up_l_zero, up_l_neg, up_a_comm, |
|
11093 | 12 |
up_m_assoc, up_l_one, up_l_distr, up_m_comm, |
10448 | 13 |
up_inverse_def, up_divide_def, up_power_def) {| ALLGOALS (rtac refl) |} |
7998 | 14 |
|
15 |
end |