src/Pure/Isar/proof.ML
changeset 30279 84097bba7bdc
parent 30211 556d1810cdad
child 30419 c944e299eaf9
equal deleted inserted replaced
30278:18ce07e05a95 30279:84097bba7bdc
  1004       (Drule.comp_no_flatten (goal, Thm.nprems_of goal) 1 Drule.protectI);
  1004       (Drule.comp_no_flatten (goal, Thm.nprems_of goal) 1 Drule.protectI);
  1005 
  1005 
  1006     fun after_local' [[th]] = put_thms false (AutoBind.thisN, SOME [th]);
  1006     fun after_local' [[th]] = put_thms false (AutoBind.thisN, SOME [th]);
  1007     fun after_global' [[th]] = ProofContext.put_thms false (AutoBind.thisN, SOME [th]);
  1007     fun after_global' [[th]] = ProofContext.put_thms false (AutoBind.thisN, SOME [th]);
  1008     val after_qed' = (after_local', after_global');
  1008     val after_qed' = (after_local', after_global');
  1009     val this_name = ProofContext.full_bname goal_ctxt AutoBind.thisN;
  1009     val this_name = ProofContext.full_name goal_ctxt (Binding.name AutoBind.thisN);
  1010 
  1010 
  1011     val result_ctxt =
  1011     val result_ctxt =
  1012       state
  1012       state
  1013       |> map_contexts (Variable.declare_term prop)
  1013       |> map_contexts (Variable.declare_term prop)
  1014       |> map_goal I (K (statement', messages, using, goal', before_qed, after_qed'))
  1014       |> map_goal I (K (statement', messages, using, goal', before_qed, after_qed'))