changeset 81507 | 08574da77b4a |
parent 81228 | ed326e93b835 |
child 81590 | e656c5edc352 |
--- a/src/HOL/HOLCF/Tools/cont_consts.ML Fri Nov 29 11:26:17 2024 +0100 +++ b/src/HOL/HOLCF/Tools/cont_consts.ML Fri Nov 29 17:40:15 2024 +0100 @@ -40,7 +40,7 @@ val c = Sign.full_name thy b val c1 = Lexicon.mark_syntax c val c2 = Lexicon.mark_const c - val xs = Name.invent Name.context "xa" (Mixfix.mixfix_args thy_ctxt mx) + val xs = Name.invent_global "xa" (Mixfix.mixfix_args thy_ctxt mx) val trans_rules = Syntax.Parse_Print_Rule (Ast.mk_appl (Ast.Constant c1) (map Ast.Variable xs),