Nominal/Ex/Classical.thy
changeset 2926 37c0d7953cba
parent 2914 db0786a521fd
child 2943 09834ba7ce59
--- a/Nominal/Ex/Classical.thy	Wed Jun 29 17:01:09 2011 +0100
+++ b/Nominal/Ex/Classical.thy	Wed Jun 29 19:21:26 2011 +0100
@@ -2,6 +2,7 @@
 imports "../Nominal2"
 begin
 
+
 (* example from Urban's PhD *)
 
 atom_decl name
@@ -177,7 +178,9 @@
   then have "(q \<bullet> (as \<inter> supp x)) \<sharp>* f (q \<bullet> (as \<inter> supp x)) (q \<bullet> x) c"
     apply(simp add: fresh_star_eqvt set_eqvt)
     sorry (* perm? *)
-  then have "r \<bullet> (bs \<inter> supp y) \<sharp>* f (r \<bullet> (bs \<inter> supp y)) (r \<bullet> y) c" using qq2 apply (simp add: inter_eqvt)
+  then have "r \<bullet> (bs \<inter> supp y) \<sharp>* f (r \<bullet> (bs \<inter> supp y)) (r \<bullet> y) c" using qq2 
+    apply (simp add: inter_eqvt)
+    sorry
   (* rest similar reversing it other way around... *)
   show ?thesis sorry
 qed
@@ -476,6 +479,8 @@
   apply(blast)
   done
 
+
+
 end