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/QuotOption.thy
changeset 936 da5e4b8317c7
parent 933 762f0eae88fd
parent 927 04ef4bd3b936
child 937 60dd70913b44 
--- 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
nominal2