changeset 2108 | c5b7be27f105 |
parent 2087 | c861b53d0cde |
child 2133 | 16834a4ca1bb |
--- a/Nominal/NewAlpha.thy Wed May 12 13:43:48 2010 +0100 +++ b/Nominal/NewAlpha.thy Wed May 12 16:08:32 2010 +0200 @@ -242,7 +242,7 @@ all_alpha_names [] all_alpha_eqs [] lthy val alpha_ts_loc = #preds alphas; - val alpha_induct_loc = #induct alphas; + val alpha_induct_loc = #raw_induct alphas; val alpha_intros_loc = #intrs alphas; val alpha_cases_loc = #elims alphas; val morphism = ProofContext.export_morphism lthy' lthy;