src/HOL/Word/WordArith.thy
changeset 28823 dcbef866c9e2
parent 28059 295a8fc92684
child 28959 9d35303719b5
--- a/src/HOL/Word/WordArith.thy	Mon Nov 17 17:00:27 2008 +0100
+++ b/src/HOL/Word/WordArith.thy	Mon Nov 17 17:00:55 2008 +0100
@@ -19,9 +19,8 @@
            simp: word_uint.Rep_inject [symmetric])
 
 lemma signed_linorder: "linorder word_sle word_sless"
-  apply unfold_locales
-      apply (unfold word_sle_def word_sless_def) 
-  by auto 
+proof
+qed (unfold word_sle_def word_sless_def, auto)
 
 interpretation signed: linorder ["word_sle" "word_sless"] 
   by (rule signed_linorder)