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.
src/HOL/HOLCF/Tools/holcf_library.ML
changeset 44080 53d95b52954c
parent 42151 4da4fc77664b
child 44169 bdcc11b2fdc8 
--- a/src/HOL/HOLCF/Tools/holcf_library.ML	Mon Aug 08 16:57:37 2011 -0700
+++ b/src/HOL/HOLCF/Tools/holcf_library.ML	Mon Aug 08 18:36:32 2011 -0700
@@ -244,7 +244,7 @@
     (T ->> V) ->> (U ->> V) ->> mk_ssumT (T, U) ->> V)
 
 fun mk_sscase (t, u) =
-  let val (T, V) = dest_cfunT (fastype_of t)
+  let val (T, _) = dest_cfunT (fastype_of t)
       val (U, V) = dest_cfunT (fastype_of u)
   in sscase_const (T, U, V) ` t ` u end
isabelle