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/Tools/Predicate_Compile/core_data.ML
changeset 46219 426ed18eba43
parent 42361 23f352990944
child 50056 72efd6b4038d 
--- a/src/HOL/Tools/Predicate_Compile/core_data.ML	Sat Jan 14 20:05:58 2012 +0100
+++ b/src/HOL/Tools/Predicate_Compile/core_data.ML	Sat Jan 14 21:16:15 2012 +0100
@@ -436,7 +436,7 @@
     val bs = map (pair "x") inpTs
     val bounds = map Bound (rev (0 upto (length bs) - 1))
     val f = Const (fun_name, inpTs ---> HOLogic.mk_tupleT outpTs)
-  in list_abs (bs, mk_single compfuns (list_comb (f, bounds))) end
+  in fold_rev Term.abs bs (mk_single compfuns (list_comb (f, bounds))) end
 
 fun register_alternative_function pred_name mode fun_name =
   Alt_Compilations_Data.map (Symtab.insert_list (eq_pair eq_mode (K false))
isabelle