src/ZF/InfDatatype.ML

--- a/src/ZF/InfDatatype.ML	Thu Oct 16 13:38:28 1997 +0200
+++ b/src/ZF/InfDatatype.ML	Thu Oct 16 13:38:47 1997 +0200
@@ -7,7 +7,8 @@
 *)
 
 val fun_Limit_VfromE =
-   [apply_funtype, InfCard_csucc RS InfCard_is_Limit] MRS Limit_VfromE 
+   [apply_funtype, InfCard_csucc RS InfCard_is_Limit] MRS
+     transfer InfDatatype.thy Limit_VfromE 
    |> standard;
 
 goal InfDatatype.thy