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/Tools/cnf_funcs.ML
changeset 45511 9b0f8ca4388e
parent 44121 44adaa6db327
child 45740 132a3e1c0fe5 
--- a/src/HOL/Tools/cnf_funcs.ML	Tue Nov 15 22:13:39 2011 +0100
+++ b/src/HOL/Tools/cnf_funcs.ML	Tue Nov 15 22:13:39 2011 +0100
@@ -261,8 +261,7 @@
     val thy = Proof_Context.theory_of ctxt
     fun conv ctxt ct =
       case term_of ct of
-        (t1 as Const _) $ (t2 as Abs _) =>
-        Conv.comb_conv (conv ctxt) ct
+        Const _ $ Abs _ => Conv.comb_conv (conv ctxt) ct
       | Abs _ => Conv.abs_conv (conv o snd) ctxt ct
       | Const _ => Conv.all_conv ct
       | t => make t RS eq_reflection
isabelle