src/HOL/Tools/Sledgehammer/sledgehammer_prover_atp.ML
changeset 75060 789e0e1a9e33
parent 75035 ed510a3693e2
child 75063 7ff39293e265
equal deleted inserted replaced
75059:5f29ddeb0386 75060:789e0e1a9e33
   181             |> tl |> curry ListPair.zip (map fst facts)
   181             |> tl |> curry ListPair.zip (map fst facts)
   182             |> maps (fn (name, rths) => map (pair name o zero_var_indexes o snd) rths)
   182             |> maps (fn (name, rths) => map (pair name o zero_var_indexes o snd) rths)
   183           end
   183           end
   184 
   184 
   185         val effective_fact_filter = fact_filter |> the_default good_fact_filter
   185         val effective_fact_filter = fact_filter |> the_default good_fact_filter
   186         val facts = get_facts_of_filter effective_fact_filter factss
   186         val facts = facts_of_filter effective_fact_filter factss
   187         val num_facts =
   187         val num_facts =
   188           (case max_facts of
   188           (case max_facts of
   189             NONE => good_max_facts
   189             NONE => good_max_facts
   190           | SOME max_facts => max_facts)
   190           | SOME max_facts => max_facts)
   191           |> Integer.min (length facts)
   191           |> Integer.min (length facts)