src/ZF/Tools/inductive_package.ML
changeset 52145 28963df2dffb
parent 52087 f3075fc4f5f6
child 54742 7a86358a3c0b
--- a/src/ZF/Tools/inductive_package.ML	Sat May 25 16:55:27 2013 +0200
+++ b/src/ZF/Tools/inductive_package.ML	Sat May 25 17:08:43 2013 +0200
@@ -260,8 +260,8 @@
       THEN (PRIMITIVE (fold_rule part_rec_defs));
 
   (*Elimination*)
-  val elim = rule_by_tactic (Proof_Context.init_global thy1) (basic_elim_tac ctxt1)
-                 (unfold RS Ind_Syntax.equals_CollectD)
+  val elim =
+    rule_by_tactic ctxt1 (basic_elim_tac ctxt1) (unfold RS Ind_Syntax.equals_CollectD)
 
   (*Applies freeness of the given constructors, which *must* be unfolded by
       the given defs.  Cannot simply use the local con_defs because