src/HOL/BNF/Tools/bnf_fp_util.ML
changeset 52660 7f7311d04727
parent 52506 eb80a16a2b72
child 52731 dacd47a0633f
     1.1 --- a/src/HOL/BNF/Tools/bnf_fp_util.ML	Mon Jul 15 14:23:51 2013 +0200
     1.2 +++ b/src/HOL/BNF/Tools/bnf_fp_util.ML	Mon Jul 15 15:50:39 2013 +0200
     1.3 @@ -426,7 +426,7 @@
     1.4  fun mk_sumEN 1 = @{thm one_pointE}
     1.5    | mk_sumEN 2 = @{thm sumE}
     1.6    | mk_sumEN n =
     1.7 -    (fold (fn i => fn thm => @{thm obj_sum_step} RSN (i, thm)) (2 upto n - 1) @{thm obj_sumE}) OF
     1.8 +    (fold (fn i => fn thm => @{thm obj_sumE_f} RSN (i, thm)) (2 upto n - 1) @{thm obj_sumE}) OF
     1.9        replicate n (impI RS allI);
    1.10  
    1.11  fun mk_obj_sumEN_balanced n =