changeset 35032 | 7efe662e41b4 |
parent 35028 | 108662d50512 |
child 35050 | 9f841f20dca6 |
--- a/src/HOL/Int.thy Fri Feb 05 14:33:50 2010 +0100 +++ b/src/HOL/Int.thy Mon Feb 08 14:06:41 2010 +0100 @@ -256,13 +256,6 @@ by (simp only: zsgn_def) qed -instance int :: lattice_ring -proof - fix k :: int - show "abs k = sup k (- k)" - by (auto simp add: sup_int_def zabs_def less_minus_self_iff [symmetric]) -qed - lemma zless_imp_add1_zle: "w < z \<Longrightarrow> w + (1\<Colon>int) \<le> z" apply (cases w, cases z) apply (simp add: less le add One_int_def)