--- a/src/HOL/Old_Number_Theory/Pocklington.thy Mon Jun 28 15:32:24 2010 +0200
+++ b/src/HOL/Old_Number_Theory/Pocklington.thy Mon Jun 28 15:32:24 2010 +0200
@@ -1174,7 +1174,8 @@
ultimately show ?case using prime_divprod[OF p] by blast
qed
-lemma primefact_variant: "primefact ps n \<longleftrightarrow> foldr op * ps 1 = n \<and> list_all prime ps" by (auto simp add: primefact_def list_all_iff)
+lemma primefact_variant: "primefact ps n \<longleftrightarrow> foldr op * ps 1 = n \<and> list_all prime ps"
+ by (auto simp add: primefact_def list_all_iff)
(* Variant of Lucas theorem. *)