author | haftmann |
Sun, 06 May 2018 18:20:25 +0000 | |
changeset 68099 | 305f9f3edf05 |
parent 68098 | e2bb1d95cbd0 |
child 68100 | b2d84b1114fa |
--- a/src/HOL/Tools/string_syntax.ML Sun May 06 18:20:25 2018 +0000 +++ b/src/HOL/Tools/string_syntax.ML Sun May 06 18:20:25 2018 +0000 @@ -117,7 +117,7 @@ c $ string_tr [t] $ u | string_tr [Free (str, _)] = mk_string_syntax (plain_strings_of str) - | string_tr ts = raise TERM ("char_tr", ts); + | string_tr ts = raise TERM ("string_tr", ts); fun list_ast_tr' [args] = Ast.Appl [Ast.Constant @{syntax_const "_String"},