prefer official precise attribute
authorhaftmann
Wed, 07 May 2025 16:08:56 +0200
changeset 82609 76262e8b53f7
parent 82608 6e3e59ac12c9
child 82617 b7148ee355f6
prefer official precise attribute
src/HOL/Library/datatype_records.ML
src/HOL/Tools/Lifting/lifting_def_code_dt.ML
--- a/src/HOL/Library/datatype_records.ML	Wed May 07 07:48:07 2025 +0200
+++ b/src/HOL/Library/datatype_records.ML	Wed May 07 16:08:56 2025 +0200
@@ -173,7 +173,7 @@
       end
 
     fun define name t =
-      Local_Theory.define ((name, NoSyn), ((Binding.empty, @{attributes [datatype_record_update, code]}),t))
+      Local_Theory.define ((name, NoSyn), ((Binding.empty, @{attributes [datatype_record_update, code equation]}),t))
       #> apfst (apsnd snd)
 
     val (updates, (lthy'', lthy')) =
--- a/src/HOL/Tools/Lifting/lifting_def_code_dt.ML	Wed May 07 07:48:07 2025 +0200
+++ b/src/HOL/Tools/Lifting/lifting_def_code_dt.ML	Wed May 07 16:08:56 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]}), [f_alt_def])
+              |> Local_Theory.note ((Binding.empty, @{attributes [code equation]}), [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]}), [rep_isom_code])
+    |> snd o Local_Theory.note ((Binding.empty, @{attributes [code equation]}), [rep_isom_code])
     |> Lifting_Setup.lifting_forget pointer
     |> pair (selss, diss, rep_isom_code)
   end