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