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/Quotient_Examples/FSet.thy
changeset 47198 cfd8ff62eab1
parent 47092 fa3538d6004b
child 47308 9caab698dbe4
child 47434 b75ce48a93ee 
--- a/src/HOL/Quotient_Examples/FSet.thy	Thu Mar 29 17:40:44 2012 +0200
+++ b/src/HOL/Quotient_Examples/FSet.thy	Thu Mar 29 21:13:48 2012 +0200
@@ -1103,7 +1103,7 @@
       then have e': "List.member r a" using list_eq_def [simplified List.member_def [symmetric], of l r] b 
         by auto
       have f: "card_list (removeAll a l) = m" using e d by (simp)
-      have g: "removeAll a l \<approx> removeAll a r" using remove_fset_rsp b by simp
+      have g: "removeAll a l \<approx> removeAll a r" using remove_fset.rsp b by simp
       have "(removeAll a l) \<approx>2 (removeAll a r)" by (rule Suc.hyps[OF f g])
       then have h: "(a # removeAll a l) \<approx>2 (a # removeAll a r)" by (rule list_eq2.intros(5))
       have i: "l \<approx>2 (a # removeAll a l)"
isabelle