src/Pure/Isar/rule_insts.ML
changeset 52732 b4da1f2ec73f
parent 52223 5bb6ae8acb87
child 53171 a5e54d4d9081
equal deleted inserted replaced
52731:dacd47a0633f 52732:b4da1f2ec73f
   330     else
   330     else
   331       (case thms of
   331       (case thms of
   332         [thm] => quant (Method.insert_tac facts THEN' inst_tac ctxt insts thm)
   332         [thm] => quant (Method.insert_tac facts THEN' inst_tac ctxt insts thm)
   333       | _ => error "Cannot have instantiations with multiple rules")));
   333       | _ => error "Cannot have instantiations with multiple rules")));
   334 
   334 
   335 val res_inst_meth = method res_inst_tac (K Tactic.resolve_tac);
   335 val res_inst_meth = method res_inst_tac (K resolve_tac);
   336 val eres_inst_meth = method eres_inst_tac (K Tactic.eresolve_tac);
   336 val eres_inst_meth = method eres_inst_tac (K eresolve_tac);
   337 val cut_inst_meth = method cut_inst_tac (K Tactic.cut_rules_tac);
   337 val cut_inst_meth = method cut_inst_tac (K cut_rules_tac);
   338 val dres_inst_meth = method dres_inst_tac (K Tactic.dresolve_tac);
   338 val dres_inst_meth = method dres_inst_tac (K dresolve_tac);
   339 val forw_inst_meth = method forw_inst_tac (K Tactic.forward_tac);
   339 val forw_inst_meth = method forw_inst_tac (K forward_tac);
   340 
   340 
   341 
   341 
   342 (* setup *)
   342 (* setup *)
   343 
   343 
   344 val _ = Context.>> (Context.map_theory
   344 val _ = Context.>> (Context.map_theory