changeset 29478 | 4a2482e16934 |
parent 29476 | 68e88293708f |
child 29485 | ec072307c69b |
--- a/src/HOL/Fundamental_Theorem_Algebra.thy Tue Jan 13 13:02:16 2009 -0800 +++ b/src/HOL/Fundamental_Theorem_Algebra.thy Tue Jan 13 13:48:21 2009 -0800 @@ -134,7 +134,7 @@ apply (simp add: offset_poly_eq_0_iff) done -definition [code del]: +definition "plength p = (if p = 0 then 0 else Suc (degree p))" lemma plength_eq_0_iff [simp]: "plength p = 0 \<longleftrightarrow> p = 0"