src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 50052 c8d141cce517
parent 50020 6b9611abcd4c
child 50484 8ec31bdb9d36
equal deleted inserted replaced
50051:87be91e6d486 50052:c8d141cce517
   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)