TFL/casesplit.ML
changeset 16425 2427be27cc60
parent 15798 016f3be5a5ec
child 16935 4d7f19d340e8
--- a/TFL/casesplit.ML	Fri Jun 17 18:33:05 2005 +0200
+++ b/TFL/casesplit.ML	Fri Jun 17 18:33:08 2005 +0200
@@ -121,7 +121,7 @@
 (* get the case_thm (my version) from a type *)
 fun case_thm_of_ty sgn ty  = 
     let 
-      val dtypestab = DatatypePackage.get_datatypes_sg sgn;
+      val dtypestab = DatatypePackage.get_datatypes sgn;
       val ty_str = case ty of 
                      Type(ty_str, _) => ty_str
                    | TFree(s,_)  => raise ERROR_MESSAGE