src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
changeset 62735 23de054397e5
parent 62505 9e2a65912111
child 62826 eb94e570c1a4
equal deleted inserted replaced
62734:38fefd98c929 62735:23de054397e5
   832 
   832 
   833 fun run_prover_for_mash ctxt params prover goal_name facts goal =
   833 fun run_prover_for_mash ctxt params prover goal_name facts goal =
   834   let
   834   let
   835     val problem =
   835     val problem =
   836       {comment = "Goal: " ^ goal_name, state = Proof.init ctxt, goal = goal, subgoal = 1,
   836       {comment = "Goal: " ^ goal_name, state = Proof.init ctxt, goal = goal, subgoal = 1,
   837        subgoal_count = 1, factss = [("", facts)]}
   837        subgoal_count = 1, factss = [("", facts)], found_proof = I}
   838   in
   838   in
   839     get_minimizing_prover ctxt MaSh (K ()) prover params problem
   839     get_minimizing_prover ctxt MaSh (K ()) prover params problem
   840   end
   840   end
   841 
   841 
   842 val bad_types = [@{type_name prop}, @{type_name bool}, @{type_name fun}]
   842 val bad_types = [@{type_name prop}, @{type_name bool}, @{type_name fun}]