src/HOL/Nominal/nominal_induct.ML
changeset 26712 e2dcda7b0401
parent 25985 8d69087f6a4b
child 26940 80df961f7900
     1.1 --- a/src/HOL/Nominal/nominal_induct.ML	Thu Apr 17 22:22:21 2008 +0200
     1.2 +++ b/src/HOL/Nominal/nominal_induct.ML	Thu Apr 17 22:22:23 2008 +0200
     1.3 @@ -92,7 +92,8 @@
     1.4  
     1.5      val finish_rule =
     1.6        split_all_tuples
     1.7 -      #> rename_params_rule true (map (ProofContext.revert_skolem defs_ctxt o fst) avoiding);
     1.8 +      #> rename_params_rule true
     1.9 +        (map (Name.clean o ProofContext.revert_skolem defs_ctxt o fst) avoiding);
    1.10      fun rule_cases r = RuleCases.make_nested true (Thm.prop_of r) (Induct.rulified_term r);
    1.11    in
    1.12      (fn i => fn st =>