
diff -r c96e007b512f -r da5e4b8317c7 Quot/QuotOption.thy
--- a/Quot/QuotOption.thy	Tue Jan 26 01:42:46 2010 +0100
+++ b/Quot/QuotOption.thy	Tue Jan 26 10:53:44 2010 +0100
@@ -70,13 +70,11 @@
   done
 
 lemma option_map_id[id_simps]: 
-  shows "Option.map id \<equiv> id"
-  apply (rule eq_reflection)
+  shows "Option.map id = id"
   by (simp add: expand_fun_eq split_option_all)
 
 lemma option_rel_eq[id_simps]: 
-  shows "option_rel (op =) \<equiv> (op =)"
-  apply(rule eq_reflection)
+  shows "option_rel (op =) = (op =)"
   by (simp add: expand_fun_eq split_option_all)
 
 end




