equal
deleted
inserted
replaced
420 #2 (#2 (find_goal state)) |> (fn {statement, using, goal, before_qed, after_qed} => |
420 #2 (#2 (find_goal state)) |> (fn {statement, using, goal, before_qed, after_qed} => |
421 Method.evaluate text ctxt using goal |
421 Method.evaluate text ctxt using goal |
422 |> Seq.map (fn (meth_cases, goal') => |
422 |> Seq.map (fn (meth_cases, goal') => |
423 state |
423 state |
424 |> map_goal |
424 |> map_goal |
425 (Proof_Context.update_cases false (no_goal_cases goal @ goal_cases ctxt goal') #> |
425 (Proof_Context.update_cases_legacy (no_goal_cases goal @ goal_cases ctxt goal') #> |
426 Proof_Context.update_cases true meth_cases) |
426 Proof_Context.update_cases meth_cases) |
427 (K (statement, using, goal', before_qed, after_qed)) I)); |
427 (K (statement, using, goal', before_qed, after_qed)) I)); |
428 |
428 |
429 in |
429 in |
430 |
430 |
431 fun refine text state = apply_method text (context_of state) state; |
431 fun refine text state = apply_method text (context_of state) state; |