src/Pure/Isar/method.ML
changeset 12399 2ba27248af7f
parent 12384 86e383f6bfea
child 12829 c92128238f85
equal deleted inserted replaced
12398:9c27f28c8f5a 12399:2ba27248af7f
   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