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 911 95ee248b3832
parent 910 b91782991dc8
child 913 b1f55dd64481 
--- a/Quot/quotient_tacs.ML	Thu Jan 21 11:11:22 2010 +0100
+++ b/Quot/quotient_tacs.ML	Thu Jan 21 12:03:47 2010 +0100
@@ -358,6 +358,10 @@
     (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _))
       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
 
+| (Const (@{const_name fun_rel}, _) $ _ $ _) $
+    (Const(@{const_name Bexeq},_) $ _) $ (Const(@{const_name Bexeq},_) $ _)
+      => rtac @{thm bexeq_rsp} THEN' quotient_tac ctxt
+
 | (_ $
     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _))
nominal2