src/HOL/Tools/ATP/atp_problem_generate.ML
changeset 67405 e9ab4ad7bd15
parent 67399 eab6ce8368fa
child 68250 c45067867860
--- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Thu Jan 11 12:32:07 2018 +0100
+++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Thu Jan 11 13:48:17 2018 +0100
@@ -1036,7 +1036,7 @@
   #> raw_mangled_const_name generic_mangled_type_name
 
 val parse_mangled_ident =
-  Scan.many1 (not o member (=) ["(", ")", ","]) >> implode
+  Scan.many1 (not o member (op =) ["(", ")", ","]) >> implode
 
 fun parse_mangled_type x =
   (parse_mangled_ident