src/HOL/Tools/Sledgehammer/sledgehammer_mepo.ML

   val pseudo_abs_name : string
   val pseudo_skolem_prefix : string
   val const_names_in_fact :
     theory -> (string * typ -> term list -> bool * term list) -> term
     -> string list
-  val weight_mepo_facts : ('a * thm) list -> (('a * thm) * real) list
+  val weight_mepo_facts : 'a list -> ('a * real) list
   val mepo_suggested_facts :
     Proof.context -> params -> string -> int -> relevance_fudge option
     -> term list -> term -> fact list -> fact list
 end;
 
 structure Sledgehammer_MePo : SLEDGEHAMMER_MEPO =
 struct
 
 open ATP_Problem_Generate
+open Sledgehammer_Util
 open Sledgehammer_Fact
 open Sledgehammer_Provers
 
 val trace =
   Attrib.setup_config_bool @{binding sledgehammer_filter_iter_trace} (K false)

           |> insert_special_facts
           |> tap (fn accepts => trace_msg ctxt (fn () =>
                       "Total relevant: " ^ string_of_int (length accepts)))
   end
 
-(* Ad hoc score function roughly based on Blanchette's Ringberg 2011 data. *)
 (* FUDGE *)
 fun weight_of_mepo_fact rank =
-  Math.pow (1.5, 15.5 - 0.05 * Real.fromInt rank) + 15.0
+  Math.pow (0.62, log2 (Real.fromInt (rank + 1)))
 
 fun weight_mepo_facts facts =
   facts ~~ map weight_of_mepo_fact (0 upto length facts - 1)
 
 fun mepo_suggested_facts ctxt