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.
Nominal/Nominal2_FSet.thy
changeset 2468 7b1470b55936
parent 2467 67b3933c3190
child 2471 894599a50af3 
--- a/Nominal/Nominal2_FSet.thy	Sat Sep 04 06:10:04 2010 +0800
+++ b/Nominal/Nominal2_FSet.thy	Sat Sep 04 06:23:31 2010 +0800
@@ -9,11 +9,8 @@
   shows "(op = ===> list_eq ===> list_eq) permute permute"
   apply(simp)
   apply(clarify)
-  apply(simp add: eqvts[symmetric])  
-  apply(subst permute_minus_cancel(1)[symmetric, of "xb"])
-  apply(subst mem_eqvt[symmetric])
-  apply(subst (2) permute_minus_cancel(1)[symmetric, of "xb"])
-  apply(subst mem_eqvt[symmetric])
+  apply(rule_tac p="-x" in permute_boolE)
+  apply(perm_simp add: permute_minus_cancel)
   apply(simp)
   done
nominal2