# HG changeset patch
# User Cezary Kaliszyk <kaliszyk@in.tum.de>
# Date 1273135421 -7200
# Node ID ace7775cbd04d357ae08b37f3f0280db70098fc8
# Parent  deb732753522c172d7fa20c96f2c3d8278baebeb
Experiments with equivariance.

diff -r deb732753522 -r ace7775cbd04 Nominal/Ex/Ex1rec.thy
--- a/Nominal/Ex/Ex1rec.thy	Wed May 05 20:39:56 2010 +0100
+++ b/Nominal/Ex/Ex1rec.thy	Thu May 06 10:43:41 2010 +0200
@@ -29,6 +29,11 @@
 ML {* Sign.of_sort @{theory} (@{typ lam}, @{sort fs}) *}
 thm lam_bp.fv[simplified lam_bp.supp(1-2)]
 
+(*declare permute_lam_raw_permute_bp_raw.simps[eqvt]
+declare alpha_gen_eqvt[eqvt]
+equivariance alpha_lam_raw
+*)
+
 end
 
 
diff -r deb732753522 -r ace7775cbd04 Nominal/Ex/ExLetRec.thy
--- a/Nominal/Ex/ExLetRec.thy	Wed May 05 20:39:56 2010 +0100
+++ b/Nominal/Ex/ExLetRec.thy	Thu May 06 10:43:41 2010 +0200
@@ -75,6 +75,12 @@
   apply (simp add: atom_eqvt fresh_star_def)
   done
 
+(*
+declare permute_trm_raw_permute_lts_raw.simps[eqvt]
+declare alpha_gen_eqvt[eqvt]
+equivariance alpha_trm_raw
+*)
+
 end