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/Pure/simplifier.ML
changeset 28074 90adbbf03187
parent 27338 2cd6c60cc10b
child 28738 677312de6608 
--- a/src/Pure/simplifier.ML	Tue Sep 02 12:07:34 2008 +0200
+++ b/src/Pure/simplifier.ML	Tue Sep 02 14:10:19 2008 +0200
@@ -194,7 +194,7 @@
   in
     lthy |> LocalTheory.declaration (fn phi =>
       let
-        val name' = Morphism.name phi name;
+        val name' = Name.name_of (Morphism.name phi (Name.binding name));
         val simproc' = morph_simproc phi simproc;
       in
         Simprocs.map (fn simprocs =>
isabelle