equal
deleted
inserted
replaced
270 |
270 |
271 fun gen_some_rule_tac tac arg_rules ctxt facts = SUBGOAL (fn (goal, i) => |
271 fun gen_some_rule_tac tac arg_rules ctxt facts = SUBGOAL (fn (goal, i) => |
272 let |
272 let |
273 val rules = |
273 val rules = |
274 if not (null arg_rules) then arg_rules |
274 if not (null arg_rules) then arg_rules |
275 else flat (ContextRules.find_rules ctxt facts goal) |
275 else flat (ContextRules.find_rules false facts goal ctxt) |
276 in trace ctxt rules; tac rules facts i end); |
276 in trace ctxt rules; tac rules facts i end); |
277 |
277 |
278 fun meth tac x = METHOD (HEADGOAL o tac x); |
278 fun meth tac x = METHOD (HEADGOAL o tac x); |
279 fun meth' tac x y = METHOD (HEADGOAL o tac x y); |
279 fun meth' tac x y = METHOD (HEADGOAL o tac x y); |
280 |
280 |