src/HOL/Library/RBT_Set.thy
changeset 63194 0b7bdb75f451
parent 61076 bdc1e2f0a86a
child 63649 e690d6f2185b
--- a/src/HOL/Library/RBT_Set.thy	Tue May 31 12:24:43 2016 +0200
+++ b/src/HOL/Library/RBT_Set.thy	Tue May 31 13:02:44 2016 +0200
@@ -838,10 +838,10 @@
 
 lemma Bleast_code [code]:
   "Bleast (Set t) P =
-    (case filter P (RBT.keys t) of
+    (case List.filter P (RBT.keys t) of
       x # xs \<Rightarrow> x
     | [] \<Rightarrow> abort_Bleast (Set t) P)"
-proof (cases "filter P (RBT.keys t)")
+proof (cases "List.filter P (RBT.keys t)")
   case Nil
   thus ?thesis by (simp add: Bleast_def abort_Bleast_def)
 next