src/HOL/Tools/inductive_set.ML
changeset 78095 bc42c074e58f
parent 74561 8e6c973003c8
child 78812 d769a183d51d
--- a/src/HOL/Tools/inductive_set.ML	Tue May 23 10:56:41 2023 +0200
+++ b/src/HOL/Tools/inductive_set.ML	Tue May 23 18:46:15 2023 +0200
@@ -494,7 +494,7 @@
                 [def, @{thm mem_Collect_eq}, @{thm case_prod_conv}]) 1))
         in
           lthy |> Local_Theory.note ((Binding.name (s ^ "p_" ^ s ^ "_eq"),
-            [Attrib.internal (K pred_set_conv_att)]),
+            [Attrib.internal \<^here> (K pred_set_conv_att)]),
               [conv_thm]) |> snd
         end) (preds ~~ cs ~~ cs_info ~~ defs) lthy2;