Mercurial Mercurial > hg > nominal2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
authorCezary Kaliszyk <kaliszyk@in.tum.de>
Mon, 15 Feb 2010 16:54:09 +0100
changeset 1158 a0e6d6b54509
parent 1157 7763756b42cf (diff)
parent 1154 368ec514aa34 (current diff)
child 1159 3c6bee89d826
merge
--- a/Quot/quotient_tacs.ML	Mon Feb 15 16:52:32 2010 +0100
+++ b/Quot/quotient_tacs.ML	Mon Feb 15 16:54:09 2010 +0100
@@ -523,8 +523,7 @@
 *)
 fun clean_tac lthy =
 let
-  val defs = map (Thm.varifyT o symmetric o #def) (qconsts_dest lthy)
-  (* FIXME: why is the Thm.varifyT needed: example where it fails is LamEx *)
+  val defs = map (symmetric o #def) (qconsts_dest lthy)
   val prs = prs_rules_get lthy
   val ids = id_simps_get lthy
   val thms = @{thms Quotient_abs_rep Quotient_rel_rep babs_prs all_prs ex_prs ex1_prs} @ ids @ prs @ defs
nominal2