Mercurial Mercurial > hg > nominal2 / 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.
Quot/quotient_tacs.ML
changeset 980 9d35c6145dd2
parent 964 31907e0648ee
child 1068 62e54830590f
child 1074 7a42cc191111 
--- a/Quot/quotient_tacs.ML	Thu Jan 28 10:52:10 2010 +0100
+++ b/Quot/quotient_tacs.ML	Thu Jan 28 12:24:49 2010 +0100
@@ -366,7 +366,7 @@
       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
 
 | (Const (@{const_name fun_rel}, _) $ _ $ _) $
-    (Const(@{const_name Bexeq},_) $ _) $ (Const(@{const_name Bexeq},_) $ _)
+    (Const(@{const_name Bex1_rel},_) $ _) $ (Const(@{const_name Bex1_rel},_) $ _)
       => rtac @{thm bexeq_rsp} THEN' quotient_tac ctxt
 
 | (_ $
nominal2