src/HOL/Tools/Function/size.ML

--- a/src/HOL/Tools/Function/size.ML	Thu Dec 15 21:46:52 2011 +0100
+++ b/src/HOL/Tools/Function/size.ML	Fri Dec 16 10:38:38 2011 +0100
@@ -40,7 +40,7 @@
       NONE => Abs ("x", T, HOLogic.zero)
     | SOME t => t);
 
-fun is_poly thy (Datatype_Aux.DtType (name, dts)) =
+fun is_poly thy (Datatype.DtType (name, dts)) =
       (case Datatype.get_info thy name of
          NONE => false
        | SOME _ => exists (is_poly thy) dts)