| changeset 80795 | 5e38e8b34eb3 |
| parent 69593 | 3dda49e08b9d |
| child 81019 | dd59daa3c37a |
--- a/src/HOL/Tools/string_syntax.ML Sat Aug 31 16:01:36 2024 +0200 +++ b/src/HOL/Tools/string_syntax.ML Sun Sep 01 19:35:30 2024 +0200 @@ -123,7 +123,7 @@ fun list_ast_tr' [args] = Ast.Appl [Ast.Constant \<^syntax_const>\<open>_String\<close>, - (mk_string_ast o maps dest_char_ast o Ast.unfold_ast \<^syntax_const>\<open>_args\<close>) args] + (mk_string_ast o maps dest_char_ast o Ast.unfold_ast \<^syntax_const>\<open>_list_args\<close>) args] | list_ast_tr' _ = raise Match;