src/HOL/HOLCF/Tools/cont_consts.ML
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),