equal
deleted
inserted
replaced
805 | freeze (Var ((s, _), T)) = Free (s, freezeT T) |
805 | freeze (Var ((s, _), T)) = Free (s, freezeT T) |
806 | freeze (Const (s, T)) = Const (s, freezeT T) |
806 | freeze (Const (s, T)) = Const (s, freezeT T) |
807 | freeze (Free (s, T)) = Free (s, freezeT T) |
807 | freeze (Free (s, T)) = Free (s, freezeT T) |
808 | freeze t = t |
808 | freeze t = t |
809 |
809 |
810 fun goal_of_thm thy = Thm.prop_of #> freeze #> Thm.cterm_of thy #> Goal.init |
810 fun goal_of_thm thy = Thm.prop_of #> freeze #> Thm.global_cterm_of thy #> Goal.init |
811 |
811 |
812 fun run_prover_for_mash ctxt params prover goal_name facts goal = |
812 fun run_prover_for_mash ctxt params prover goal_name facts goal = |
813 let |
813 let |
814 val problem = |
814 val problem = |
815 {comment = "Goal: " ^ goal_name, state = Proof.init ctxt, goal = goal, subgoal = 1, |
815 {comment = "Goal: " ^ goal_name, state = Proof.init ctxt, goal = goal, subgoal = 1, |