src/HOL/Tools/ATP/atp_translate.ML
changeset 43174 f497a1e97d37
parent 43167 839f599bc7ed
child 43175 4ca344fe0aca
--- a/src/HOL/Tools/ATP/atp_translate.ML	Mon Jun 06 20:36:35 2011 +0200
+++ b/src/HOL/Tools/ATP/atp_translate.ML	Mon Jun 06 20:36:35 2011 +0200
@@ -83,6 +83,7 @@
   val type_tag_name : string
   val type_pred_name : string
   val simple_type_prefix : string
+  val prefixed_predicator_name : string
   val prefixed_app_op_name : string
   val prefixed_type_tag_name : string
   val ascii_of: string -> string
@@ -200,6 +201,7 @@
 val type_pred_name = "is"
 val simple_type_prefix = "ty_"
 
+val prefixed_predicator_name = const_prefix ^ predicator_name
 val prefixed_app_op_name = const_prefix ^ app_op_name
 val prefixed_type_tag_name = const_prefix ^ type_tag_name
 
@@ -1111,7 +1113,7 @@
                           (K (add_combterm_syms_to_table ctxt explicit_apply)))
 
 val default_sym_tab_entries : (string * sym_info) list =
-  (make_fixed_const predicator_name,
+  (prefixed_predicator_name,
    {pred_sym = true, min_ary = 1, max_ary = 1, types = []}) ::
   ([tptp_false, tptp_true]
    |> map (rpair {pred_sym = true, min_ary = 0, max_ary = 0, types = []})) @