src/HOL/Tools/Sledgehammer/sledgehammer.ML
changeset 75040 fada390d49dd
parent 75037 46e3a423a787
child 75046 52b37e8a617b
equal deleted inserted replaced
75039:094ba0948403 75040:fada390d49dd
   250     val (outcome, message) = Timeout.apply hard_timeout go ()
   250     val (outcome, message) = Timeout.apply hard_timeout go ()
   251     val () = check_expected_outcome ctxt prover_name expect outcome
   251     val () = check_expected_outcome ctxt prover_name expect outcome
   252 
   252 
   253     val message = message ()
   253     val message = message ()
   254     val () =
   254     val () =
   255       (case outcome of
   255       if mode = Auto_Try then
   256         SH_Some _ => the_default writeln writeln_result (prover_name ^ ": " ^ message)
   256         ()
   257       | _ => ())
   257       else
       
   258         (case outcome of
       
   259           SH_Some _ => the_default writeln writeln_result (prover_name ^ ": " ^ message)
       
   260         | _ => ())
   258   in
   261   in
   259     (outcome, message)
   262     (outcome, message)
   260   end
   263   end
   261 
   264 
   262 fun string_of_facts filter facts =
   265 fun string_of_facts filter facts =
   450         (launch_provers ()
   453         (launch_provers ()
   451          handle Timeout.TIMEOUT _ => (SH_Timeout, ""))
   454          handle Timeout.TIMEOUT _ => (SH_Timeout, ""))
   452         |> `(fn (outcome, _) =>
   455         |> `(fn (outcome, _) =>
   453           (case outcome of
   456           (case outcome of
   454             SH_Some _ => (print "QED"; true)
   457             SH_Some _ => (print "QED"; true)
   455           | _ => (print "Sorry"; false)))
   458           | _ => (print "No proof found"; false)))
   456       end)
   459       end)
   457 
   460 
   458 end;
   461 end;