1.1 --- a/src/HOL/Nominal/nominal_permeq.ML	Sat Sep 03 23:38:06 2011 +0200
     1.2 +++ b/src/HOL/Nominal/nominal_permeq.ML	Sat Sep 03 15:09:51 2011 -0700
     1.3 @@ -303,7 +303,7 @@
     1.4                vs HOLogic.unit;
     1.5              val s' = list_abs (ps,
     1.6                Const ("Nominal.supp", fastype_of1 (Ts, s) -->
     1.7 -                List.last (binder_types T) --> HOLogic.boolT) $ s);
     1.8 +                Term.range_type T) $ s);
     1.9              val supports_rule' = Thm.lift_rule goal supports_rule;
    1.10              val _ $ (_ $ S $ _) =
    1.11                Logic.strip_assums_concl (hd (prems_of supports_rule'));