src/HOL/Nominal/nominal_inductive2.ML
changeset 58112 8081087096ad
parent 56253 83b3c110f22d
child 59058 a78612c67ec0
--- a/src/HOL/Nominal/nominal_inductive2.ML	Mon Sep 01 16:17:46 2014 +0200
+++ b/src/HOL/Nominal/nominal_inductive2.ML	Mon Sep 01 16:17:46 2014 +0200
@@ -261,7 +261,7 @@
       in abs_params params' prem end) prems);
 
     val ind_vars =
-      (Datatype_Prop.indexify_names (replicate (length atomTs) "pi") ~~
+      (Old_Datatype_Prop.indexify_names (replicate (length atomTs) "pi") ~~
        map NominalAtoms.mk_permT atomTs) @ [("z", fsT)];
     val ind_Ts = rev (map snd ind_vars);