author | haftmann |
Wed, 19 Apr 2023 18:22:37 +0000 | |
changeset 77885 | 89676df5846a |
parent 77884 | 0e054e6e7f5e |
child 77906 | 9c5e8460df05 |
--- 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];