# HG changeset patch
# User huffman
# Date 1231791041 28800
# Node ID 7c1841a7bdf4c33c04f4952b2b1c1462c6f57b58
# Parent  ad87e5d1488bdb978a2a14dd406a44e3ee9c2a59
declare dvd_minus_iff and minus_dvd_iff [iff]

diff -r ad87e5d1488b -r 7c1841a7bdf4 src/HOL/Ring_and_Field.thy
--- 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" ..