changeset 54230 | b1d955791529 |
parent 53374 | a14d2a854c02 |
child 54463 | faad28e65b48 |
--- a/src/HOL/Library/Fraction_Field.thy Thu Oct 31 16:54:22 2013 +0100 +++ b/src/HOL/Library/Fraction_Field.thy Fri Nov 01 18:51:14 2013 +0100 @@ -132,7 +132,7 @@ lemma diff_fract [simp]: assumes "b \<noteq> 0" and "d \<noteq> 0" shows "Fract a b - Fract c d = Fract (a * d - c * b) (b * d)" - using assms by (simp add: diff_fract_def diff_minus) + using assms by (simp add: diff_fract_def) definition mult_fract_def: "q * r = Abs_fract (\<Union>x \<in> Rep_fract q. \<Union>y \<in> Rep_fract r.