| changeset 16888 | 7cb4bcfa058e |
| parent 16819 | 00d8f9300d13 |
| child 16973 | b2a894562b8f |
--- a/src/HOL/Real/RealDef.thy Tue Jul 19 17:21:59 2005 +0200 +++ b/src/HOL/Real/RealDef.thy Tue Jul 19 17:24:09 2005 +0200 @@ -701,6 +701,9 @@ lemma real_of_int_le_zero_cancel_iff [simp]: "(real (n::int) <= 0) = (n <= 0)" by (simp add: real_of_int_def) +lemma real_of_int_abs [simp]: "real (abs x) = abs(real (x::int))" +by (auto simp add: abs_if) + lemma int_less_real_le: "((n::int) < m) = (real n + 1 <= real m)" apply (subgoal_tac "real n + 1 = real (n + 1)") apply (simp del: real_of_int_add)