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 =>