--- a/src/HOL/Tools/BNF/bnf_fp_n2m.ML Tue Feb 18 14:51:26 2014 +0100
+++ b/src/HOL/Tools/BNF/bnf_fp_n2m.ML Tue Feb 18 17:52:27 2014 +0100
@@ -45,7 +45,7 @@
Const (@{const_name sum_map}, fT --> gT --> mk_sumT (fAT, gAT) --> mk_sumT (fBT, gBT)) $ f $ g
end;
-fun construct_mutualized_fp fp fpTs fp_sugars bs resBs (resDs, Dss) bnfs lthy =
+fun construct_mutualized_fp fp fpTs (fp_sugars : fp_sugar list) bs resBs (resDs, Dss) bnfs lthy =
let
fun steal_fp_res get =
map (fn {fp_res, fp_res_index, ...} => nth (get fp_res) fp_res_index) fp_sugars;