tuned
authorhaftmann
Wed, 19 Apr 2023 18:22:37 +0000
changeset 77885 89676df5846a
parent 77884 0e054e6e7f5e
child 77906 9c5e8460df05
tuned
src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Wed Apr 19 18:21:30 2023 +0000
+++ b/src/HOL/Tools/record.ML	Wed Apr 19 18:22:37 2023 +0000
@@ -1493,7 +1493,7 @@
 
 (* attributes *)
 
-fun case_names_fields x = Rule_Cases.case_names ["fields"] x;
+val case_names_fields = Rule_Cases.case_names ["fields"];
 fun induct_type_global name = [case_names_fields, Induct.induct_type name];
 fun cases_type_global name = [case_names_fields, Induct.cases_type name];