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