# HG changeset patch
# User blanchet
# Date 1354924130 -3600
# Node ID 9bb7868a4c200d02e71e7de1a35bf99ee166aada
# Parent  9762fe72936edd5172fa5536b132785d28785a40
fixed embarrassing off-by-one bug in MaSh's Mesh

diff -r 9762fe72936e -r 9bb7868a4c20 src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
--- 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