equal
deleted
inserted
replaced
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')) |