--- a/src/HOL/Ring_and_Field.thy Mon Jan 12 12:09:54 2009 -0800
+++ b/src/HOL/Ring_and_Field.thy Mon Jan 12 12:10:41 2009 -0800
@@ -295,7 +295,7 @@
subclass ring_1 ..
subclass comm_semiring_1_cancel ..
-lemma dvd_minus_iff: "x dvd - y \<longleftrightarrow> x dvd y"
+lemma dvd_minus_iff [iff]: "x dvd - y \<longleftrightarrow> x dvd y"
proof
assume "x dvd - y"
then have "x dvd - 1 * - y" by (rule dvd_mult)
@@ -306,7 +306,7 @@
then show "x dvd - y" by simp
qed
-lemma minus_dvd_iff: "- x dvd y \<longleftrightarrow> x dvd y"
+lemma minus_dvd_iff [iff]: "- x dvd y \<longleftrightarrow> x dvd y"
proof
assume "- x dvd y"
then obtain k where "y = - x * k" ..