
diff -r f89d1c52d647 -r 1b31d514a087 Attic/Quot/Examples/FSet_BallBex.thy
--- a/Attic/Quot/Examples/FSet_BallBex.thy	Mon Aug 30 15:59:16 2010 +0900
+++ b/Attic/Quot/Examples/FSet_BallBex.thy	Mon Aug 30 15:59:50 2010 +0900
@@ -11,15 +11,13 @@
   apply (metis mem_def)
   done
 
-(* Should not work and doesn't.
 thm test[quot_lifted]
-*)
 
 lemma "\<forall>xs \<in> (\<lambda>xs. x |\<in>| xs). x |\<in>| finsert y xs"
-  unfolding Ball_def mem_def
-  by (lifting test[unfolded Ball_def mem_def])
+  unfolding Ball_def
+  by (lifting test[unfolded Ball_def])
 
-ML {* Quotient_Tacs.lifted @{context} [@{typ "'a fset"}] @{thms Ball_def Bex_def mem_def} @{thm test}*}
+ML {* Quotient_Tacs.lifted @{context} [@{typ "'a fset"}] @{thms Ball_def Bex_def} @{thm test}*}
 
 lemma test2:
   "\<exists>xs \<in> (\<lambda>xs. xs \<approx> []). xs \<approx> []"
@@ -27,14 +25,12 @@
   apply (auto simp add: mem_def)
   done
 
-(* Should not work and doesn't
 thm test2[quot_lifted]
-*)
 
 lemma "\<exists>xs \<in> (\<lambda>xs. xs = {||}). xs = {||}"
-  unfolding Bex_def mem_def
-  by (lifting test2[unfolded Bex_def mem_def])
+  unfolding Bex_def
+  by (lifting test2[unfolded Bex_def])
 
-ML {* Quotient_Tacs.lifted @{context} [@{typ "'a fset"}] @{thms Bex_def mem_def} @{thm test2}*}
+ML {* Quotient_Tacs.lifted @{context} [@{typ "'a fset"}] @{thms Bex_def} @{thm test2}*}
 
 end




