Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Nominal/nominal_induct.ML
changeset 26712 e2dcda7b0401
parent 25985 8d69087f6a4b
child 26940 80df961f7900 
--- a/src/HOL/Nominal/nominal_induct.ML	Thu Apr 17 22:22:21 2008 +0200
+++ b/src/HOL/Nominal/nominal_induct.ML	Thu Apr 17 22:22:23 2008 +0200
@@ -92,7 +92,8 @@
 
     val finish_rule =
       split_all_tuples
-      #> rename_params_rule true (map (ProofContext.revert_skolem defs_ctxt o fst) avoiding);
+      #> rename_params_rule true
+        (map (Name.clean o ProofContext.revert_skolem defs_ctxt o fst) avoiding);
     fun rule_cases r = RuleCases.make_nested true (Thm.prop_of r) (Induct.rulified_term r);
   in
     (fn i => fn st =>
isabelle