| count((bag ++ m).max, bag ++ m) = 0, count(bag.max, bag) = 0 → bag = ∅ ⊦ bag ++ m = ∅ |
count((m < bag.max ⊃ bag.max;m), bag ++ m) = 0 ⊦ bag = ∅, count(bag.max, bag) = 0
Used simplifier rules: max-rec: ⊦ (bag ++ n).max = (bag = ∅ ⊃ n;(bag.max > n ⊃ bag.max;n));% ⊦ count(n, ∅ ++ n) = 1; (s)% ⊦ bag0 ++ n ≠ ∅; (s)% ⊦ m > n ↔ n < m; (s)