equal
deleted
inserted
replaced
371 |
371 |
372 fun hammer_away override_params subcommand opt_i fact_override state = |
372 fun hammer_away override_params subcommand opt_i fact_override state = |
373 let |
373 let |
374 val ctxt = Proof.context_of state |
374 val ctxt = Proof.context_of state |
375 val override_params = override_params |> map (normalize_raw_param ctxt) |
375 val override_params = override_params |> map (normalize_raw_param ctxt) |
|
376 val _ = Isabelle_System.mkdir (Path.explode (getenv "ISABELLE_TMP")) |
376 in |
377 in |
377 if subcommand = runN then |
378 if subcommand = runN then |
378 let val i = the_default 1 opt_i in |
379 let val i = the_default 1 opt_i in |
379 run_sledgehammer (get_params Normal ctxt override_params) Normal i |
380 run_sledgehammer (get_params Normal ctxt override_params) Normal i |
380 fact_override (minimize_command override_params i) |
381 fact_override (minimize_command override_params i) |