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/Qelim/qelim.ML
changeset 38864 4abe644fcea5
parent 38795 848be46708dc
child 41453 c03593812297 
--- a/src/HOL/Tools/Qelim/qelim.ML	Sat Aug 28 20:24:40 2010 +0800
+++ b/src/HOL/Tools/Qelim/qelim.ML	Sat Aug 28 16:14:32 2010 +0200
@@ -26,7 +26,7 @@
     Const(s,T)$_$_ => 
        if domain_type T = HOLogic.boolT
           andalso member (op =) [@{const_name HOL.conj}, @{const_name HOL.disj},
-            @{const_name HOL.implies}, @{const_name "op ="}] s
+            @{const_name HOL.implies}, @{const_name HOL.eq}] s
        then binop_conv (conv env) p 
        else atcv env p
   | Const(@{const_name Not},_)$_ => arg_conv (conv env) p
isabelle