equal
deleted
inserted
replaced
683 |> map_context (autofix props) |
683 |> map_context (autofix props) |
684 |> put_goal (Some (((kind, names, propss), ([], goal)), |
684 |> put_goal (Some (((kind, names, propss), ([], goal)), |
685 (after_qed o map_context gen_binds, pr))) |
685 (after_qed o map_context gen_binds, pr))) |
686 |> map_context (ProofContext.add_cases |
686 |> map_context (ProofContext.add_cases |
687 (if length props = 1 then |
687 (if length props = 1 then |
688 RuleCases.make true None (Thm.sign_of_thm goal, Thm.prop_of goal) [rule_contextN] |
688 RuleCases.make None None (Thm.sign_of_thm goal, Thm.prop_of goal) [rule_contextN] |
689 else [(rule_contextN, RuleCases.empty)])) |
689 else [(rule_contextN, RuleCases.empty)])) |
690 |> auto_bind_goal props |
690 |> auto_bind_goal props |
691 |> (if is_chain state then use_facts else reset_facts) |
691 |> (if is_chain state then use_facts else reset_facts) |
692 |> new_block |
692 |> new_block |
693 |> enter_backward |
693 |> enter_backward |