--- a/src/HOL/Tools/Function/partial_function.ML Mon Dec 13 10:15:26 2010 +0100
+++ b/src/HOL/Tools/Function/partial_function.ML Mon Dec 13 10:15:27 2010 +0100
@@ -165,7 +165,7 @@
"Known modes are " ^ commas_quote (known_modes lthy) ^ "."]);
val ((fixes, [(eq_abinding, eqn)]), _) = prep fixes_raw [eqn_raw] lthy;
- val (_, _, plain_eqn) = Function_Lib.dest_all_all_ctx lthy eqn;
+ val ((_, plain_eqn), _) = Function_Lib.focus_term eqn lthy;
val ((f_binding, fT), mixfix) = the_single fixes;
val fname = Binding.name_of f_binding;