explicit singleton default code equation declaration where appropriate
authorhaftmann
Tue, 26 Aug 2025 20:26:12 +0200
changeset 83062 0baecd42fadf
parent 83061 9fbda8184ec7
child 83063 f8f82da1e560
explicit singleton default code equation declaration where appropriate
src/HOL/Tools/Lifting/lifting_def_code_dt.ML
--- a/src/HOL/Tools/Lifting/lifting_def_code_dt.ML	Tue Aug 26 18:59:06 2025 +0200
+++ b/src/HOL/Tools/Lifting/lifting_def_code_dt.ML	Tue Aug 26 20:26:12 2025 +0200
@@ -308,7 +308,7 @@
               |> Thm.close_derivation \<^here>
               |> singleton (Variable.export transfer_ctxt lthy4)
             val lthy5 = lthy4
-              |> Local_Theory.note ((Binding.empty, @{attributes [code equation]}), [f_alt_def])
+              |> Local_Theory.note ((Binding.empty, [Code.singleton_default_equation_attrib]), [f_alt_def])
               |> snd
               (* if processing a mutual datatype (there is a cycle!) the corresponding quotient 
                  will be needed later and will be forgotten later *)
@@ -538,7 +538,7 @@
       |> singleton(Variable.export x_ctxt lthy6)
   in
     lthy6
-    |> snd o Local_Theory.note ((Binding.empty, @{attributes [code equation]}), [rep_isom_code])
+    |> snd o Local_Theory.note ((Binding.empty, [Code.singleton_default_equation_attrib]), [rep_isom_code])
     |> Lifting_Setup.lifting_forget pointer
     |> pair (selss, diss, rep_isom_code)
   end