Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small change in class_package
authorhaftmann
Fri, 30 Jun 2006 12:03:21 +0200
changeset 19965 75a15223e21f
parent 19964 73704ba4bed1
child 19966 88bbe97ed0b0
small change in class_package
src/HOL/ex/Classpackage.thy file | annotate | diff | comparison | revisions 
--- 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
isabelle