src/HOL/Tools/Metis/metis_translate.ML
changeset 43826 2b094d17f432
parent 43626 a867ebb12209
child 43828 e07a2c4cbad8
--- a/src/HOL/Tools/Metis/metis_translate.ML	Thu Jul 14 15:14:38 2011 +0200
+++ b/src/HOL/Tools/Metis/metis_translate.ML	Thu Jul 14 15:14:38 2011 +0200
@@ -94,7 +94,7 @@
   map_aterms (fn t as Const (s, _) =>
                  if String.isPrefix old_skolem_const_prefix s then
                    AList.lookup (op =) old_skolems s |> the
-                   |> map_types Type_Infer.paramify_vars
+                   |> map_types (map_type_tvar (K dummyT))
                  else
                    t
                | t => t)