src/HOL/Rings.thy
changeset 58649 a62065b5e1e2
parent 58647 fce800afeec7
child 58776 95e58e04e534
equal deleted inserted replaced
58648:3ccafeb9a1d1 58649:a62065b5e1e2
   226 
   226 
   227 lemma dvd_add_triv_right_iff [simp]:
   227 lemma dvd_add_triv_right_iff [simp]:
   228   "a dvd b + a \<longleftrightarrow> a dvd b"
   228   "a dvd b + a \<longleftrightarrow> a dvd b"
   229   using dvd_add_times_triv_right_iff [of a b 1] by simp
   229   using dvd_add_times_triv_right_iff [of a b 1] by simp
   230 
   230 
   231 lemma dvd_add_eq_right:
   231 lemma dvd_add_right_iff:
   232   assumes "a dvd b"
   232   assumes "a dvd b"
   233   shows "a dvd b + c \<longleftrightarrow> a dvd c"
   233   shows "a dvd b + c \<longleftrightarrow> a dvd c"
   234   using assms by (auto dest: dvd_addD)
   234   using assms by (auto dest: dvd_addD)
   235 
   235 
   236 lemma dvd_add_eq_left:
   236 lemma dvd_add_left_iff:
   237   assumes "a dvd c"
   237   assumes "a dvd c"
   238   shows "a dvd b + c \<longleftrightarrow> a dvd b"
   238   shows "a dvd b + c \<longleftrightarrow> a dvd b"
   239   using assms dvd_add_eq_right [of a c b] by (simp add: ac_simps)
   239   using assms dvd_add_right_iff [of a c b] by (simp add: ac_simps)
   240 
   240 
   241 end
   241 end
   242 
   242 
   243 class no_zero_divisors = zero + times +
   243 class no_zero_divisors = zero + times +
   244   assumes no_zero_divisors: "a \<noteq> 0 \<Longrightarrow> b \<noteq> 0 \<Longrightarrow> a * b \<noteq> 0"
   244   assumes no_zero_divisors: "a \<noteq> 0 \<Longrightarrow> b \<noteq> 0 \<Longrightarrow> a * b \<noteq> 0"