| author | kleing |
| Thu, 09 Dec 1999 11:34:32 +0100 | |
| changeset 8056 | 3c587e7b8fe5 |
| 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 |