author | blanchet |
Sat, 08 Dec 2012 00:48:50 +0100 | |
changeset 50438 | 9bb7868a4c20 |
parent 50437 | 9762fe72936e |
child 50439 | 330d4ad89e92 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML Sat Dec 08 00:48:50 2012 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML Sat Dec 08 00:48:50 2012 +0100 @@ -451,7 +451,7 @@ in case find_index (curry fact_eq fact o fst) sels of ~1 => (case find_index (curry fact_eq fact) unks of - ~1 => score_at sel_len + ~1 => score_at (sel_len - 1) | _ => NONE) | rank => score_at rank end