| 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