src/HOL/Tools/Metis/metis_translate.ML
changeset 44396 66b9b3fcd608
parent 44394 20bd9f90accc
child 44397 06375952f1fa
--- a/src/HOL/Tools/Metis/metis_translate.ML	Mon Aug 22 15:02:45 2011 +0200
+++ b/src/HOL/Tools/Metis/metis_translate.ML	Mon Aug 22 15:02:45 2011 +0200
@@ -141,7 +141,7 @@
                   |> Metis_Thm.axiom, isa)
     in
       if ident = type_tag_idempotence_helper_name orelse
-         String.isPrefix lightweight_tags_sym_formula_prefix ident then
+         String.isPrefix tags_sym_formula_prefix ident then
         Isa_Reflexive_or_Trivial |> some
       else if String.isPrefix conjecture_prefix ident then
         NONE