Nominal/Rsp.thy
changeset 1681 b8a07a3c1692
parent 1673 e8cf0520c820
child 1683 f78c820f67c3
--- a/Nominal/Rsp.thy	Sat Mar 27 12:26:59 2010 +0100
+++ b/Nominal/Rsp.thy	Sat Mar 27 13:50:59 2010 +0100
@@ -94,8 +94,6 @@
 in
   Const (@{const_name permute}, @{typ perm} --> ty --> ty)
 end
-
-val perm_at = @{term "permute :: perm \<Rightarrow> atom set \<Rightarrow> atom set"}
 *}
 
 lemma exi: "\<exists>(pi :: perm). P pi \<Longrightarrow> (\<And>(p :: perm). P p \<Longrightarrow> Q (pi \<bullet> p)) \<Longrightarrow> \<exists>pi. Q pi"