# HG changeset patch
# User wenzelm
# Date 1150565865 -7200
# Node ID 9956ecabd9afedfb4136de0d88ce508efe55a192
# Parent  158ea5884966d946b036e27709a14e081217046a
RuleCases.mutual_rule: ctxt;
ProofContext.exports: simultaneous facts;

diff -r 158ea5884966 -r 9956ecabd9af src/Provers/induct_method.ML
--- a/src/Provers/induct_method.ML	Sat Jun 17 19:37:43 2006 +0200
+++ b/src/Provers/induct_method.ML	Sat Jun 17 19:37:45 2006 +0200
@@ -376,11 +376,11 @@
 
     val ruleq =
       (case opt_rule of
-        SOME rs => Seq.single (inst_rule (RuleCases.strict_mutual_rule rs))
+        SOME rs => Seq.single (inst_rule (RuleCases.strict_mutual_rule ctxt rs))
       | NONE =>
           (find_inductS ctxt facts @
             map (special_rename_params defs_ctxt insts) (find_inductT ctxt insts))
-          |> map_filter RuleCases.mutual_rule
+          |> map_filter (RuleCases.mutual_rule ctxt)
           |> tap (trace_rules ctxt InductAttrib.inductN o map #2)
           |> Seq.of_list |> Seq.maps (Seq.try inst_rule));
 
@@ -404,7 +404,7 @@
             |> Seq.maps (fn rule' =>
               CASES (rule_cases rule' cases)
                 (Tactic.rtac rule' i THEN
-                  PRIMSEQ (ProofContext.exports defs_ctxt ctxt)) st'))))
+                  PRIMSEQ (Seq.singleton (ProofContext.exports defs_ctxt ctxt))) st'))))
     THEN_ALL_NEW_CASES rulify_tac
   end;