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"