--- a/src/Pure/General/set.ML Sun Apr 02 12:34:13 2023 +0200 +++ b/src/Pure/General/set.ML Mon Apr 03 21:13:46 2023 +0200 @@ -81,6 +81,7 @@ (* size *) +(*literal copy from table.ML*) local fun count Empty n = n | count (Leaf1 _) n = n + 1