diff -r 93c9022ba5e9 -r c4001cda9da3 Quot/Nominal/Terms.thy --- a/Quot/Nominal/Terms.thy Fri Feb 12 15:50:43 2010 +0100 +++ b/Quot/Nominal/Terms.thy Fri Feb 12 16:04:10 2010 +0100 @@ -150,27 +150,27 @@ quotient_definition "Vr1 :: name \ trm1" -as +is "rVr1" quotient_definition "Ap1 :: trm1 \ trm1 \ trm1" -as +is "rAp1" quotient_definition "Lm1 :: name \ trm1 \ trm1" -as +is "rLm1" quotient_definition "Lt1 :: bp \ trm1 \ trm1 \ trm1" -as +is "rLt1" quotient_definition "fv_trm1 :: trm1 \ atom set" -as +is "rfv_trm1" lemma alpha_rfv1: @@ -211,7 +211,7 @@ quotient_definition "permute_trm1 :: perm \ trm1 \ trm1" -as +is "permute :: perm \ rtrm1 \ rtrm1" lemmas permute_trm1[simp] = permute_rtrm1_permute_bp.simps[quot_lifted] @@ -705,42 +705,42 @@ quotient_definition "Vr5 :: name \ trm5" -as +is "rVr5" quotient_definition "Ap5 :: trm5 \ trm5 \ trm5" -as +is "rAp5" quotient_definition "Lt5 :: lts \ trm5 \ trm5" -as +is "rLt5" quotient_definition "Lnil :: lts" -as +is "rLnil" quotient_definition "Lcons :: name \ trm5 \ lts \ lts" -as +is "rLcons" quotient_definition "fv_trm5 :: trm5 \ atom set" -as +is "rfv_trm5" quotient_definition "fv_lts :: lts \ atom set" -as +is "rfv_lts" quotient_definition "bv5 :: lts \ atom set" -as +is "rbv5" lemma rbv5_eqvt: @@ -827,12 +827,12 @@ quotient_definition "permute_trm5 :: perm \ trm5 \ trm5" -as +is "permute :: perm \ rtrm5 \ rtrm5" quotient_definition "permute_lts :: perm \ lts \ lts" -as +is "permute :: perm \ rlts \ rlts" lemma trm5_lts_zero: @@ -995,27 +995,27 @@ quotient_definition "Vr6 :: name \ trm6" -as +is "rVr6" quotient_definition "Lm6 :: name \ trm6 \ trm6" -as +is "rLm6" quotient_definition "Lt6 :: trm6 \ trm6 \ trm6" -as +is "rLt6" quotient_definition "fv_trm6 :: trm6 \ atom set" -as +is "rfv_trm6" quotient_definition "bv6 :: trm6 \ atom set" -as +is "rbv6" lemma [quot_respect]: @@ -1077,7 +1077,7 @@ quotient_definition "permute_trm6 :: perm \ trm6 \ trm6" -as +is "permute :: perm \ rtrm6 \ rtrm6" instance @@ -1316,32 +1316,32 @@ quotient_definition "qVar9 :: name \ lam9" -as +is "Var9" quotient_definition "qLam :: name \ lam9 \ lam9" -as +is "Lam9" quotient_definition "qBla9 :: lam9 \ lam9 \ bla9" -as +is "Bla9" quotient_definition "fv_lam9 :: lam9 \ atom set" -as +is "rfv_lam9" quotient_definition "fv_bla9 :: bla9 \ atom set" -as +is "rfv_bla9" quotient_definition "bv9 :: lam9 \ atom set" -as +is "rbv9" instantiation lam9 and bla9 :: pt @@ -1349,12 +1349,12 @@ quotient_definition "permute_lam9 :: perm \ lam9 \ lam9" -as +is "permute :: perm \ rlam9 \ rlam9" quotient_definition "permute_bla9 :: perm \ bla9 \ bla9" -as +is "permute :: perm \ rbla9 \ rbla9" instance