src/HOL/Library/Polynomial.thy
changeset 36350 bc7982c54e37
parent 35028 108662d50512
child 37765 26bdfb7b680b
equal deleted inserted replaced
36349:39be26d1bc28 36350:bc7982c54e37
  1091 apply (cases "z = 0", simp add: pdivmod_rel_def)
  1091 apply (cases "z = 0", simp add: pdivmod_rel_def)
  1092 apply (cases "y = 0", simp add: pdivmod_rel_by_0_iff pdivmod_rel_0_iff)
  1092 apply (cases "y = 0", simp add: pdivmod_rel_by_0_iff pdivmod_rel_0_iff)
  1093 apply (cases "r = 0")
  1093 apply (cases "r = 0")
  1094 apply (cases "r' = 0")
  1094 apply (cases "r' = 0")
  1095 apply (simp add: pdivmod_rel_def)
  1095 apply (simp add: pdivmod_rel_def)
  1096 apply (simp add: pdivmod_rel_def ring_simps degree_mult_eq)
  1096 apply (simp add: pdivmod_rel_def field_simps degree_mult_eq)
  1097 apply (cases "r' = 0")
  1097 apply (cases "r' = 0")
  1098 apply (simp add: pdivmod_rel_def degree_mult_eq)
  1098 apply (simp add: pdivmod_rel_def degree_mult_eq)
  1099 apply (simp add: pdivmod_rel_def ring_simps)
  1099 apply (simp add: pdivmod_rel_def field_simps)
  1100 apply (simp add: degree_mult_eq degree_add_less)
  1100 apply (simp add: degree_mult_eq degree_add_less)
  1101 done
  1101 done
  1102 
  1102 
  1103 lemma poly_div_mult_right:
  1103 lemma poly_div_mult_right:
  1104   fixes x y z :: "'a::field poly"
  1104   fixes x y z :: "'a::field poly"