author | blanchet |
Thu, 14 Jul 2011 15:14:38 +0200 (2011-07-14) | |
changeset 43826 | 2b094d17f432 |
parent 43825 | fbc3d9a3a6cd |
child 43827 | 62d64709af3b |
child 43831 | e323be6b02a5 |
--- 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)