src/HOL/Mutabelle/mutabelle.ML
changeset 36743 ce2297415b54
parent 36692 54b64d4ad524
child 37744 3daaf23b9ab4
--- a/src/HOL/Mutabelle/mutabelle.ML	Sat May 08 16:24:44 2010 +0200
+++ b/src/HOL/Mutabelle/mutabelle.ML	Sat May 08 17:10:27 2010 +0200
@@ -648,7 +648,7 @@
        val mutated = mutate option (prop_of x) usedthy
          commutatives forbidden_funs iter
        val (passednum,_,cenum,_) = qc_test mutated insts usedthy sz qciter
-       val thmname =  "\ntheorem " ^ (Thm.get_name x) ^ ":"
+       val thmname =  "\ntheorem " ^ Thm.get_name_hint x ^ ":"
        val pnumstring = string_of_int passednum
        val cenumstring = string_of_int cenum
      in