changeset 33832 | cff42395c246 |
parent 33522 | 737589bb9bb8 |
child 35568 | 8fbbfc39508f |
--- a/src/HOL/Tools/res_axioms.ML Sat Nov 21 14:03:36 2009 +0100 +++ b/src/HOL/Tools/res_axioms.ML Sat Nov 21 15:49:29 2009 +0100 @@ -29,8 +29,7 @@ val trace = Unsynchronized.ref false; fun trace_msg msg = if ! trace then tracing (msg ()) else (); -(* FIXME legacy *) -fun freeze_thm th = #1 (Drule.freeze_thaw th); +fun freeze_thm th = #1 (Drule.legacy_freeze_thaw th); fun type_has_empty_sort (TFree (_, [])) = true | type_has_empty_sort (TVar (_, [])) = true