--- a/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML Tue Sep 24 19:15:49 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_fp_rec_sugar_util.ML Tue Sep 24 19:15:50 2013 +0200
@@ -219,8 +219,7 @@
fld
end;
-fun massage_direct_corec_call ctxt has_call raw_massage_call U t =
- massage_let_if ctxt has_call raw_massage_call U t;
+val massage_direct_corec_call = massage_let_if;
fun massage_indirect_corec_call ctxt has_call raw_massage_call bound_Ts U t =
let
--- a/src/HOL/Tools/monomorph.ML Tue Sep 24 19:15:49 2013 +0200
+++ b/src/HOL/Tools/monomorph.ML Tue Sep 24 19:15:50 2013 +0200
@@ -290,7 +290,7 @@
fun size_of_subst subst =
Vartab.fold (Integer.add o size_of_typ o snd o snd) subst 0
-val subst_ord = int_ord o pairself size_of_subst
+fun subst_ord subst = int_ord (pairself size_of_subst subst)
fun instantiated_thms _ _ (Ground thm) = [(0, thm)]
| instantiated_thms _ _ Ignored = []