src/HOL/Tools/Sledgehammer/sledgehammer_mash.ML
changeset 59621 291934bac95e
parent 59582 0fbed69ff081
child 59875 9779b0c59ad4
equal deleted inserted replaced
59620:92d7d8e4f1bf 59621:291934bac95e
   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,