src/Pure/Isar/proof.ML
changeset 60573 e549969355b2
parent 60565 b7ee41f72add
child 60595 804dfdc82835
equal deleted inserted replaced
60567:19c277ea65ae 60573:e549969355b2
   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;