# HG changeset patch
# User blanchet
# Date 1341868992 -7200
# Node ID 49930a9ec27ce526a7e8166c60719f6ad0e340bb
# Parent  6a797139f0b2d36cad67f237a3a91d127bca62cc
tuning

diff -r 6a797139f0b2 -r 49930a9ec27c src/HOL/Tools/ATP/atp_problem_generate.ML
--- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Mon Jul 09 23:23:12 2012 +0200
+++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Mon Jul 09 23:23:12 2012 +0200
@@ -196,9 +196,9 @@
 val schematic_var_prefix = "V_"
 val fixed_var_prefix = "v_"
 val tvar_prefix = "T_"
-val tfree_prefix = "t_"
+val tfree_prefix = "tf_"
 val const_prefix = "c_"
-val type_const_prefix = "tc_"
+val type_const_prefix = "t_"
 val native_type_prefix = "n_"
 val class_prefix = "cl_"
 
diff -r 6a797139f0b2 -r 49930a9ec27c src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML	Mon Jul 09 23:23:12 2012 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML	Mon Jul 09 23:23:12 2012 +0200
@@ -39,6 +39,8 @@
   val trace : bool Config.T
   val ignore_no_atp : bool Config.T
   val instantiate_inducts : bool Config.T
+  val pseudo_abs_name : string
+  val pseudo_skolem_prefix : string
   val no_relevance_override : relevance_override
   val const_names_in_fact :
     theory -> (string * typ -> term list -> bool * term list) -> term
@@ -108,8 +110,8 @@
 val no_relevance_override = {add = [], del = [], only = false}
 
 val sledgehammer_prefix = "Sledgehammer" ^ Long_Name.separator
-val abs_name = sledgehammer_prefix ^ "abs"
-val skolem_prefix = sledgehammer_prefix ^ "sko"
+val pseudo_abs_name = sledgehammer_prefix ^ "abs"
+val pseudo_skolem_prefix = sledgehammer_prefix ^ "sko"
 val theory_const_suffix = Long_Name.separator ^ " 1"
 
 (* unfolding these can yield really huge terms *)
@@ -359,7 +361,7 @@
 (* Add a pconstant to the table, but a [] entry means a standard
    connective, which we ignore.*)
 fun add_pconst_to_table also_skolem (s, p) =
-  if (not also_skolem andalso String.isPrefix skolem_prefix s) then I
+  if (not also_skolem andalso String.isPrefix pseudo_skolem_prefix s) then I
   else Symtab.map_default (s, [p]) (insert (op =) p)
 
 (* Set constants tend to pull in too many irrelevant facts. We limit the damage
@@ -393,14 +395,15 @@
          (* Since lambdas on the right-hand side of equalities are usually
             extensionalized later by "abs_extensionalize_term", we don't
             penalize them here. *)
-         ? add_pconst_to_table true (abs_name, PType (order_of_type T + 1, [])))
+         ? add_pconst_to_table true (pseudo_abs_name,
+                                     PType (order_of_type T + 1, [])))
         #> fold (do_term false) (t' :: ts)
       | (_, ts) => fold (do_term false) ts
     fun do_quantifier will_surely_be_skolemized abs_T body_t =
       do_formula pos body_t
       #> (if also_skolems andalso will_surely_be_skolemized then
-            add_pconst_to_table true
-                (Misc_Legacy.gensym skolem_prefix, PType (order_of_type abs_T, []))
+            add_pconst_to_table true (pseudo_skolem_prefix ^ serial_string (),
+                                      PType (order_of_type abs_T, []))
           else
             I)
     and do_term_or_formula ext_arg T =
@@ -529,9 +532,9 @@
 fun generic_pconst_weight local_const_multiplier abs_weight skolem_weight
                           theory_const_weight chained_const_weight weight_for f
                           const_tab chained_const_tab (c as (s, PType (m, _))) =
-  if s = abs_name then
+  if s = pseudo_abs_name then
     abs_weight
-  else if String.isPrefix skolem_prefix s then
+  else if String.isPrefix pseudo_skolem_prefix s then
     skolem_weight
   else if String.isSuffix theory_const_suffix s then
     theory_const_weight
@@ -571,7 +574,7 @@
   | stature_bonus _ _ = 0.0
 
 fun is_odd_const_name s =
-  s = abs_name orelse String.isPrefix skolem_prefix s orelse
+  s = pseudo_abs_name orelse String.isPrefix pseudo_skolem_prefix s orelse
   String.isSuffix theory_const_suffix s
 
 fun fact_weight fudge stature const_tab relevant_consts chained_consts