Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
isabelle