| changeset 46730 | e3b99d0231bc |
| parent 45129 | 1fce03e3e8ad |
| child 49751 | 5248806bc7ab |
--- a/src/HOL/Library/Univ_Poly.thy Tue Feb 28 17:11:18 2012 +0100 +++ b/src/HOL/Library/Univ_Poly.thy Tue Feb 28 20:20:09 2012 +0100 @@ -103,7 +103,7 @@ lemma pmult_singleton: "[h1] *** p1 = h1 %* p1" by simp end -lemma (in semiring_1) poly_ident_mult[simp]: "1 %* t = t" by (induct "t", auto) +lemma (in semiring_1) poly_ident_mult[simp]: "1 %* t = t" by (induct t) auto lemma (in semiring_0) poly_simple_add_Cons[simp]: "[a] +++ ((0)#t) = (a#t)" by simp