--- a/src/HOL/Library/Polynomial.thy Sat Mar 17 23:55:03 2012 +0100
+++ b/src/HOL/Library/Polynomial.thy Sun Mar 18 08:57:45 2012 +0100
@@ -17,9 +17,11 @@
morphisms coeff Abs_poly
unfolding Poly_def by auto
+(* FIXME should be named poly_eq_iff *)
lemma expand_poly_eq: "p = q \<longleftrightarrow> (\<forall>n. coeff p n = coeff q n)"
by (simp add: coeff_inject [symmetric] fun_eq_iff)
+(* FIXME should be named poly_eqI *)
lemma poly_ext: "(\<And>n. coeff p n = coeff q n) \<Longrightarrow> p = q"
by (simp add: expand_poly_eq)