equal
deleted
inserted
replaced
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; |