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 930 68c1f378a70a
parent 920 dae99175f584
child 939 ce774af6b964 
--- a/Quot/quotient_tacs.ML	Tue Jan 26 08:55:55 2010 +0100
+++ b/Quot/quotient_tacs.ML	Tue Jan 26 09:28:32 2010 +0100
@@ -526,8 +526,7 @@
 
   fun mk_simps thms = (mk_minimal_ss lthy) addsimps thms addSolver quotient_solver
   val ss1 = mk_simps (defs @ prs @ @{thms babs_prs all_prs ex_prs ex1_prs})
-  val ss2 = mk_simps (@{thms Quotient_abs_rep[THEN eq_reflection] 
-                             Quotient_rel_rep[THEN eq_reflection] ex1_prs} @ ids)
+  val ss2 = mk_simps (@{thms Quotient_abs_rep Quotient_rel_rep ex1_prs} @ ids)
 in
   EVERY' [simp_tac ss1,
           fun_map_tac lthy,
nominal2