src/HOL/Tools/Sledgehammer/sledgehammer_mepo.ML
changeset 50053 fea589c8583e
parent 48408 5493e67982ee
child 50382 cb564ff43c28
equal deleted inserted replaced
50052:c8d141cce517 50053:fea589c8583e
   534            facts hyp_ts
   534            facts hyp_ts
   535            (concl_t |> theory_constify fudge (Context.theory_name thy)))
   535            (concl_t |> theory_constify fudge (Context.theory_name thy)))
   536   end
   536   end
   537 
   537 
   538 (* Ad hoc score function roughly based on Blanchette's Ringberg 2011 data. *)
   538 (* Ad hoc score function roughly based on Blanchette's Ringberg 2011 data. *)
   539 fun weight_of_fact rank =
   539 fun weight_of_fact rank = Math.pow (1.5, 15.5 - 0.05 * Real.fromInt rank) + 15.0
   540   Math.pow (1.5, 15.5 - 0.05 * Real.fromInt rank) + 15.0
       
   541 
   540 
   542 fun weight_mepo_facts facts =
   541 fun weight_mepo_facts facts =
   543   facts ~~ map weight_of_fact (0 upto length facts - 1)
   542   facts ~~ map weight_of_fact (0 upto length facts - 1)
   544 
   543 
   545 end;
   544 end;