--- a/src/HOL/List.thy Mon Aug 20 20:54:26 2018 +0200
+++ b/src/HOL/List.thy Mon Aug 20 20:54:40 2018 +0200
@@ -2985,14 +2985,10 @@
"INFIMUM (set xs) f = fold (inf \<circ> f) xs top"
using Inf_set_fold [of "map f xs "] by (simp add: fold_map)
-declare INF_set_fold [code]
-
lemma (in complete_lattice) SUP_set_fold:
"SUPREMUM (set xs) f = fold (sup \<circ> f) xs bot"
using Sup_set_fold [of "map f xs "] by (simp add: fold_map)
-declare SUP_set_fold [code]
-
subsubsection \<open>Fold variants: @{const foldr} and @{const foldl}\<close>