src/HOL/Tools/Metis/metis_tactics.ML
changeset 43235 3a8d49bc06e1
parent 43228 2ed2f092e990
child 43298 82d4874757df
--- a/src/HOL/Tools/Metis/metis_tactics.ML	Tue Jun 07 11:05:09 2011 +0200
+++ b/src/HOL/Tools/Metis/metis_tactics.ML	Tue Jun 07 11:12:52 2011 +0200
@@ -243,7 +243,7 @@
               o generic_metis_tac type_syss ctxt (schem_facts @ ths))
   end
 
-fun setup_method (binding, type_syss as type_sys :: _) =
+fun setup_method (binding, type_syss) =
   (if type_syss = metis_default_type_syss then
      (Args.parens Parse.short_ident
       >> (fn s => AList.lookup (op =) type_sys_aliases s |> the_default s))