change dvd_minus_iff, minus_dvd_iff from [iff] to [simp] (due to problems with Library/Primes.thy)
authorhuffman
Mon, 12 Jan 2009 23:36:30 -0800
changeset 29465 b2cfb5d0a59e
parent 29464 c0d225a7f6ff
child 29466 a905283ad03e
child 29469 c03d2db1cda8
change dvd_minus_iff, minus_dvd_iff from [iff] to [simp] (due to problems with Library/Primes.thy)
src/HOL/Ring_and_Field.thy
--- a/src/HOL/Ring_and_Field.thy	Mon Jan 12 22:41:08 2009 -0800
+++ b/src/HOL/Ring_and_Field.thy	Mon Jan 12 23:36:30 2009 -0800
@@ -295,7 +295,7 @@
 subclass ring_1 ..
 subclass comm_semiring_1_cancel ..
 
-lemma dvd_minus_iff [iff]: "x dvd - y \<longleftrightarrow> x dvd y"
+lemma dvd_minus_iff [simp]: "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 [iff]: "- x dvd y \<longleftrightarrow> x dvd y"
+lemma minus_dvd_iff [simp]: "- x dvd y \<longleftrightarrow> x dvd y"
 proof
   assume "- x dvd y"
   then obtain k where "y = - x * k" ..