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