author | wenzelm |
Fri, 06 Oct 2000 17:35:58 +0200 | |
changeset 10168 | 50be659d4222 |
parent 7998 | 3d0c34795831 |
child 10448 | da7d0e28f746 |
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, |
|
12 |
up_m_assoc, up_l_one, up_l_distr, up_m_comm, up_one_not_zero, |
|
13 |
up_power_def) {| rtac refl 1 |} |
|
14 |
||
15 |
end |