1.1 --- a/src/HOL/Mirabelle/Actions/mirabelle_sledgehammer.ML	Wed Apr 18 10:53:28 2012 +0200
     1.2 +++ b/src/HOL/Mirabelle/Actions/mirabelle_sledgehammer.ML	Wed Apr 18 10:53:28 2012 +0200
     1.3 @@ -475,8 +475,7 @@
     1.4          val problem =
     1.5            {state = st', goal = goal, subgoal = i,
     1.6             subgoal_count = Sledgehammer_Util.subgoal_count st,
     1.7 -           facts = facts |> map Sledgehammer_Provers.Untranslated_Fact,
     1.8 -           smt_filter = NONE}
     1.9 +           facts = facts |> map Sledgehammer_Provers.Untranslated_Fact}
    1.10        in prover params (K (K (K ""))) problem end)) ()
    1.11        handle TimeLimit.TimeOut => failed ATP_Proof.TimedOut
    1.12             | Fail "inappropriate" => failed ATP_Proof.Inappropriate

     2.1 --- a/src/HOL/ex/sledgehammer_tactics.ML	Wed Apr 18 10:53:28 2012 +0200
     2.2 +++ b/src/HOL/ex/sledgehammer_tactics.ML	Wed Apr 18 10:53:28 2012 +0200
     2.3 @@ -46,8 +46,7 @@
     2.4               relevance_fudge relevance_override chained_ths hyp_ts concl_t
     2.5      val problem =
     2.6        {state = Proof.init ctxt, goal = goal, subgoal = i, subgoal_count = n,
     2.7 -       facts = map Sledgehammer_Provers.Untranslated_Fact facts,
     2.8 -       smt_filter = NONE}
     2.9 +       facts = map Sledgehammer_Provers.Untranslated_Fact facts}
    2.10    in
    2.11      (case prover params (K (K (K ""))) problem of
    2.12        {outcome = NONE, used_facts, ...} => used_facts |> map fst |> SOME