diff -r fd73c5dbaad2 -r 018998c00003 src/HOL/Nitpick.thy
--- a/src/HOL/Nitpick.thy Wed Sep 14 22:07:11 2016 +0200
+++ b/src/HOL/Nitpick.thy Thu Sep 15 11:48:20 2016 +0200
@@ -73,7 +73,7 @@
"card' A \ if finite A then length (SOME xs. set xs = A \ distinct xs) else 0"
definition setsum' :: "('a \ 'b::comm_monoid_add) \ 'a set \ 'b" where
- "setsum' f A \ if finite A then listsum (map f (SOME xs. set xs = A \ distinct xs)) else 0"
+ "setsum' f A \ if finite A then sum_list (map f (SOME xs. set xs = A \ distinct xs)) else 0"
inductive fold_graph' :: "('a \ 'b \ 'b) \ 'b \ 'a set \ 'b \ bool" where
"fold_graph' f z {} z" |