equal
deleted
inserted
replaced
297 else |
297 else |
298 ((false, (name, params)), preplay) |
298 ((false, (name, params)), preplay) |
299 val minimize = minimize |> the_default perhaps_minimize |
299 val minimize = minimize |> the_default perhaps_minimize |
300 val (used_facts, (preplay, message, _)) = |
300 val (used_facts, (preplay, message, _)) = |
301 if minimize then |
301 if minimize then |
302 minimize_facts do_learn minimize_name params (not verbose) subgoal |
302 minimize_facts do_learn minimize_name params |
|
303 (mode <> Normal orelse not verbose) subgoal |
303 subgoal_count state |
304 subgoal_count state |
304 (filter_used_facts used_facts |
305 (filter_used_facts used_facts |
305 (map (apsnd single o untranslated_fact) facts)) |
306 (map (apsnd single o untranslated_fact) facts)) |
306 |>> Option.map (map fst) |
307 |>> Option.map (map fst) |
307 else |
308 else |