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