Nominal/NewAlpha.thy
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;