src/HOL/Lifting_Set.thy
changeset 82664 e9f3b94eb6a0
parent 74979 4d77dd3019d1
--- a/src/HOL/Lifting_Set.thy	Sat May 24 09:06:26 2025 +0200
+++ b/src/HOL/Lifting_Set.thy	Wed May 28 17:49:22 2025 +0200
@@ -258,7 +258,7 @@
 lemma filter_transfer [transfer_rule]:
   assumes [transfer_rule]: "bi_unique A"
   shows "((A ===> (=)) ===> rel_set A ===> rel_set A) Set.filter Set.filter"
-  unfolding Set.filter_def[abs_def] rel_fun_def rel_set_def by blast
+  by (simp add: rel_fun_def rel_set_def) blast
 
 lemma finite_transfer [transfer_rule]:
   "bi_unique A \<Longrightarrow> (rel_set A ===> (=)) finite finite"