# HG changeset patch
# User wenzelm
# Date 1309006932 -7200
# Node ID 1cf2256f1b077e02af86a2167a58d2a2853af34d
# Parent  6b95bcc5c2da15691fac3c176ed9b2af7c970ddd
produce string constant directly;

diff -r 6b95bcc5c2da -r 1cf2256f1b07 src/HOL/Tools/Metis/metis_tactics.ML
--- a/src/HOL/Tools/Metis/metis_tactics.ML	Sat Jun 25 14:28:43 2011 +0200
+++ b/src/HOL/Tools/Metis/metis_tactics.ML	Sat Jun 25 15:02:12 2011 +0200
@@ -33,7 +33,7 @@
 open Metis_Translate
 open Metis_Reconstruct
 
-val metisN = Binding.qualified_name_of @{binding metis}
+val metisN = "metis"
 
 val full_typesN = "full_types"
 val partial_typesN = "partial_types"