# HG changeset patch
# User haftmann
# Date 1151661801 -7200
# Node ID 75a15223e21f8c2bf4b102cec0f8d1758d22a088
# Parent  73704ba4bed1351671636e6fcd5ff11cf27a07a9
small change in class_package

diff -r 73704ba4bed1 -r 75a15223e21f src/HOL/ex/Classpackage.thy
--- a/src/HOL/ex/Classpackage.thy	Thu Jun 29 18:11:15 2006 +0200
+++ b/src/HOL/ex/Classpackage.thy	Fri Jun 30 12:03:21 2006 +0200
@@ -61,8 +61,8 @@
   fix xs :: "'a list"
   show "\<one> \<otimes> xs = xs"
   proof -
-    from semigroup_list_def have "\<And>xs ys::'a list. xs \<otimes> ys == xs @ ys".
-    moreover from monoidl_list_def have "\<one> == []::'a list".
+    from semigroup_list_def have "\<And>xs ys::'a list. xs \<otimes> ys == xs @ ys" .
+    moreover from monoidl_list_def have "\<one> == []::'a list" by simp
     ultimately show ?thesis by simp
   qed
 qed  
@@ -75,8 +75,8 @@
   fix xs :: "'a list"
   show "xs \<otimes> \<one> = xs"
   proof -
-    from semigroup_list_def have "\<And>xs ys::'a list. xs \<otimes> ys == xs @ ys".
-    moreover from monoidl_list_def have "\<one> == []::'a list".
+    from semigroup_list_def have "\<And>xs ys::'a list. xs \<otimes> ys == xs @ ys" .
+    moreover from monoidl_list_def have "\<one> == []::'a list" by simp
     ultimately show ?thesis by simp
   qed
 qed