src/HOL/Nitpick.thy
changeset 63882 018998c00003
parent 61944 5d06ecfdb472
child 64267 b9a1486e79be
     1.1 --- a/src/HOL/Nitpick.thy	Wed Sep 14 22:07:11 2016 +0200
     1.2 +++ b/src/HOL/Nitpick.thy	Thu Sep 15 11:48:20 2016 +0200
     1.3 @@ -73,7 +73,7 @@
     1.4    "card' A \<equiv> if finite A then length (SOME xs. set xs = A \<and> distinct xs) else 0"
     1.5  
     1.6  definition setsum' :: "('a \<Rightarrow> 'b::comm_monoid_add) \<Rightarrow> 'a set \<Rightarrow> 'b" where
     1.7 -  "setsum' f A \<equiv> if finite A then listsum (map f (SOME xs. set xs = A \<and> distinct xs)) else 0"
     1.8 +  "setsum' f A \<equiv> if finite A then sum_list (map f (SOME xs. set xs = A \<and> distinct xs)) else 0"
     1.9  
    1.10  inductive fold_graph' :: "('a \<Rightarrow> 'b \<Rightarrow> 'b) \<Rightarrow> 'b \<Rightarrow> 'a set \<Rightarrow> 'b \<Rightarrow> bool" where
    1.11    "fold_graph' f z {} z" |