src/Pure/Isar/proof.ML
changeset 13596 ee5f79b210c1
parent 13425 119ae829ad9b
child 13698 d7ef5a3b3591
equal deleted inserted replaced
13595:7e6cdcd113a2 13596:ee5f79b210c1
   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