Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Nominal/nominal_permeq.ML
changeset 44693 a9635943a3e9
parent 44684 8dde3352d5c4
parent 44692 ccfc7c193d2b
child 44830 f710ce327b08 
--- a/src/HOL/Nominal/nominal_permeq.ML	Sat Sep 03 23:38:06 2011 +0200
+++ b/src/HOL/Nominal/nominal_permeq.ML	Sat Sep 03 15:09:51 2011 -0700
@@ -303,7 +303,7 @@
               vs HOLogic.unit;
             val s' = list_abs (ps,
               Const ("Nominal.supp", fastype_of1 (Ts, s) -->
-                List.last (binder_types T) --> HOLogic.boolT) $ s);
+                Term.range_type T) $ s);
             val supports_rule' = Thm.lift_rule goal supports_rule;
             val _ $ (_ $ S $ _) =
               Logic.strip_assums_concl (hd (prems_of supports_rule'));
isabelle