diff -r a2d18fea844a -r e95831757903 src/HOL/Tools/Function/pattern_split.ML
--- a/src/HOL/Tools/Function/pattern_split.ML	Tue Nov 12 14:00:56 2013 +0100
+++ b/src/HOL/Tools/Function/pattern_split.ML	Tue Nov 12 14:24:34 2013 +0100
@@ -49,7 +49,7 @@
                 map (fn (vs, subst) => (vs, (v,t)::subst)) substs
               end
           in
-            maps aux (inst_constrs_of (Proof_Context.theory_of ctxt) T)
+            maps aux (inst_constrs_of ctxt T)
           end
      | pattern_subtract_subst_aux vs t t' =
          let