| author | wenzelm | 
| Thu, 16 Mar 2000 00:32:55 +0100 | |
| changeset 8488 | 58e37d59c146 | 
| 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 |