src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 57814 7a9aaddb3203
parent 57782 b5dc0562c7fb
child 57918 f5d73caba4e5
equal deleted inserted replaced
57813:0a84dc31601f 57814:7a9aaddb3203
   532         val fact_override = {add = facts, del = [], only = true}
   532         val fact_override = {add = facts, del = [], only = true}
   533         fun my_timeout time_slice =
   533         fun my_timeout time_slice =
   534           timeout |> Time.toReal |> curry Real.* time_slice |> Time.fromReal
   534           timeout |> Time.toReal |> curry Real.* time_slice |> Time.fromReal
   535         fun sledge_tac time_slice prover type_enc =
   535         fun sledge_tac time_slice prover type_enc =
   536           Sledgehammer_Tactics.sledgehammer_as_oracle_tac ctxt
   536           Sledgehammer_Tactics.sledgehammer_as_oracle_tac ctxt
   537             (override_params prover type_enc (my_timeout time_slice)) fact_override
   537             (override_params prover type_enc (my_timeout time_slice)) fact_override []
   538       in
   538       in
   539         if !meth = "sledgehammer_tac" then
   539         if !meth = "sledgehammer_tac" then
   540           sledge_tac 0.2 ATP_Proof.vampireN "mono_native"
   540           sledge_tac 0.2 ATP_Proof.vampireN "mono_native"
   541           ORELSE' sledge_tac 0.2 ATP_Proof.eN "poly_guards??"
   541           ORELSE' sledge_tac 0.2 ATP_Proof.eN "poly_guards??"
   542           ORELSE' sledge_tac 0.2 ATP_Proof.spassN "mono_native"
   542           ORELSE' sledge_tac 0.2 ATP_Proof.spassN "mono_native"