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