changeset 20548 | 8ef25fe585a8 |
parent 20344 | d02b43ea722e |
child 20903 | 905effde63d9 |
--- a/src/HOL/Tools/specification_package.ML Fri Sep 15 22:56:08 2006 +0200 +++ b/src/HOL/Tools/specification_package.ML Fri Sep 15 22:56:13 2006 +0200 @@ -108,7 +108,7 @@ NONE => TVar f | SOME (b, _) => TFree (b, S)) in - map_term_types (map_type_tvar unthaw) t + map_types (map_type_tvar unthaw) t end (* The syntactic meddling needed to setup add_specification for work *)