# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1264448840 -3600
# Node ID 8d51795ef54df6f301029d70f9cf20b279b62436
# Parent  5455b19ef138aff8aeeec5c11188923663acd7d3
ids *cannot* be object equalities

diff -r 5455b19ef138 -r 8d51795ef54d Quot/QuotMain.thy
--- a/Quot/QuotMain.thy	Mon Jan 25 20:35:42 2010 +0100
+++ b/Quot/QuotMain.thy	Mon Jan 25 20:47:20 2010 +0100
@@ -111,7 +111,7 @@
 
 text {* Lemmas about simplifying id's. *}
 lemmas [id_simps] =
-  id_def[symmetric, THEN eq_reflection]
+  id_def[symmetric]
   fun_map_id[THEN eq_reflection]
   id_apply[THEN eq_reflection]
   id_o[THEN eq_reflection]
diff -r 5455b19ef138 -r 8d51795ef54d Quot/QuotOption.thy
--- a/Quot/QuotOption.thy	Mon Jan 25 20:35:42 2010 +0100
+++ b/Quot/QuotOption.thy	Mon Jan 25 20:47:20 2010 +0100
@@ -82,7 +82,7 @@
   done
 
 lemma option_rel_eq[id_simps]: 
-  shows "option_rel op = \<equiv> op ="
+  shows "option_rel (op =) \<equiv> (op =)"
   apply(rule eq_reflection)
   apply(auto simp add: expand_fun_eq)
   apply(case_tac x)
diff -r 5455b19ef138 -r 8d51795ef54d Quot/QuotProd.thy
--- a/Quot/QuotProd.thy	Mon Jan 25 20:35:42 2010 +0100
+++ b/Quot/QuotProd.thy	Mon Jan 25 20:47:20 2010 +0100
@@ -80,7 +80,7 @@
      (simp add: prod_fun_def)
 
 lemma prod_rel_eq[id_simps]: 
-  shows "prod_rel op = op = \<equiv> op ="
+  shows "prod_rel (op =) (op =) \<equiv> (op =)"
   apply (rule eq_reflection)
   apply (rule ext)+
   apply auto