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 908 1bf4337919d3
parent 906 a394c7337966
child 910 b91782991dc8 
--- a/Quot/quotient_tacs.ML	Thu Jan 21 09:02:04 2010 +0100
+++ b/Quot/quotient_tacs.ML	Thu Jan 21 09:55:05 2010 +0100
@@ -323,17 +323,6 @@
   (Const (@{const_name fun_rel}, _) $ _ $ _) $ (Abs _) $ (Abs _)
       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
 
-| Const (@{const_name "op ="},_) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _) $ _)
-      rtac @{thm bex1_rsp} THEN' dtac @{thm QT_ex1}
-
-(* TODO: Check why less _ are needed then in EX/ALL cases *)
-| (Const (@{const_name fun_rel}, _) $ _ $ _) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _)) $
-    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _))
-      rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
-
     (* (op =) (Ball...) (Ball...) ----> (op =) (...) (...) *)
 | (Const (@{const_name "op ="},_) $
     (Const(@{const_name Ball},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
@@ -358,6 +347,17 @@
     (Const(@{const_name Bex},_) $ (Const (@{const_name Respects}, _) $ _) $ _)
       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
 
+| Const (@{const_name "op ="},_) $
+    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
+    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _) $ _)
+      => rtac @{thm bex1_rsp} THEN' dtac @{thm QT_ex1}
+
+(* TODO: Check why less _ are needed then in EX/ALL cases *)
+| (Const (@{const_name fun_rel}, _) $ _ $ _) $
+    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _)) $
+    (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _))
+      => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
+
 | (_ $
     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _))
nominal2