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 17412 e26cb20ef0cc
parent 17227 398a7353ca69
child 18050 652c95961a8b 
--- a/TFL/casesplit.ML	Thu Sep 15 17:16:55 2005 +0200
+++ b/TFL/casesplit.ML	Thu Sep 15 17:16:56 2005 +0200
@@ -126,7 +126,7 @@
                                             ("Free type: " ^ s)
                    | TVar((s,i),_) => raise ERROR_MESSAGE
                                             ("Free variable: " ^ s)
-      val dt = case Symtab.curried_lookup dtypestab ty_str
+      val dt = case Symtab.lookup dtypestab ty_str
                 of SOME dt => dt
                  | NONE => raise ERROR_MESSAGE ("Not a Datatype: " ^ ty_str)
     in
isabelle