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);