diff -r be28f7b4b97b -r 468c3c1adcba Nominal/ExLet.thy --- a/Nominal/ExLet.thy Thu Apr 01 01:05:05 2010 +0200 +++ b/Nominal/ExLet.thy Thu Apr 01 03:28:28 2010 +0200 @@ -6,7 +6,7 @@ atom_decl name -ML {* val _ = recursive := false *} +ML {* val _ = recursive := true *} ML {* val _ = alpha_type := AlphaLst *} nominal_datatype trm = Vr "name" @@ -36,6 +36,7 @@ (*thm trm_lts.supp*) thm trm_lts.fv[simplified trm_lts.supp(1-2)] + primrec permute_bn_raw where