Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Finite_Set.thy
changeset 51546 2e26df807dc7
parent 51489 f738e6dbd844
child 51598 5dbe537087aa 
--- a/src/HOL/Finite_Set.thy	Tue Mar 26 20:55:21 2013 +0100
+++ b/src/HOL/Finite_Set.thy	Tue Mar 26 21:53:56 2013 +0100
@@ -1107,11 +1107,11 @@
 
 interpretation card!: folding "\<lambda>_. Suc" 0
 where
-  "card.F = card"
+  "folding.F (\<lambda>_. Suc) 0 = card"
 proof -
   show "folding (\<lambda>_. Suc)" by default rule
   then interpret card!: folding "\<lambda>_. Suc" 0 .
-  show "card.F = card" by (simp only: card_def)
+  from card_def show "folding.F (\<lambda>_. Suc) 0 = card" by rule
 qed
 
 lemma card_infinite:
isabelle