tuned -- prefer canonical argument order of fold_rev;

--- a/src/HOL/Tools/Function/function_elims.ML	Fri Dec 13 14:15:52 2013 +0100
+++ b/src/HOL/Tools/Function/function_elims.ML	Fri Dec 13 14:58:47 2013 +0100
@@ -109,7 +109,7 @@
           |> HOLogic.dest_Trueprop
           |> snd o fst o dest_funprop
           |> length;
-        val (free_vars,prop,ranT) = mk_funeq arity (fastype_of f) ([], f);
+        val (free_vars, prop, ranT) = mk_funeq arity (fastype_of f) ([], f);
         val (rhs_var, arg_vars) = (case free_vars of x :: xs => (x, rev xs));
         val args = HOLogic.mk_tuple arg_vars;
         val domT = R |> dest_Free |> snd |> hd o snd o dest_Type;
@@ -143,7 +143,7 @@
 
       fun unstrip rl =
         rl
-        |> (fn thm => List.foldr (uncurry Thm.forall_intr) thm (map cert arg_vars))
+        |> fold_rev (Thm.forall_intr o cert) arg_vars
         |> Thm.forall_intr @{cterm "P::bool"};
     in
       map unstrip (elim_stripped :: bool_elims)