# HG changeset patch
# User wenzelm
# Date 1729442862 -7200
# Node ID b5836dd39018fadbf485704060370dfb1c898a13
# Parent  f6d73a2b3b3938c454566de3309ebdb4ec16e65c
more operations;

diff -r f6d73a2b3b39 -r b5836dd39018 src/Pure/Syntax/mixfix.ML
--- a/src/Pure/Syntax/mixfix.ML	Sun Oct 20 15:48:06 2024 +0200
+++ b/src/Pure/Syntax/mixfix.ML	Sun Oct 20 18:47:42 2024 +0200
@@ -30,6 +30,7 @@
   val default_constraint: Proof.context -> mixfix -> typ
   val make_type: int -> typ
   val binder_name: string -> string
+  val is_binder_name: string -> bool
   val syn_ext_types: Proof.context -> (string * typ * mixfix) list -> Syntax_Ext.syn_ext
   val syn_ext_consts: Proof.context -> string list -> (string * typ * mixfix) list ->
     Syntax_Ext.syn_ext
@@ -170,7 +171,9 @@
 (* binder notation *)
 
 val binder_stamp = stamp ();
-val binder_name = suffix "_binder";
+val binder_suffix = "_binder"
+val binder_name = suffix binder_suffix;
+val is_binder_name = String.isSuffix binder_suffix;
 
 val binder_bg = Symbol_Pos.explode0 "(";
 val binder_en = Symbol_Pos.explode0 "_./ _)";