src/HOL/Nominal/nominal_inductive.ML
changeset 32172 c4e55f30d527
parent 32149 ef59550a55d3
child 32202 443d5cfaba1b
--- a/src/HOL/Nominal/nominal_inductive.ML	Fri Jul 24 12:33:00 2009 +0200
+++ b/src/HOL/Nominal/nominal_inductive.ML	Fri Jul 24 18:58:58 2009 +0200
@@ -566,7 +566,7 @@
             map (Attrib.internal o K) (#2 strong_induct)), [#1 strong_induct])
           ctxt;
         val strong_inducts =
-          ProjectRule.projects ctxt (1 upto length names) strong_induct'
+          Project_Rule.projects ctxt (1 upto length names) strong_induct'
       in
         ctxt' |>
         LocalTheory.note Thm.generatedK