| bag.max = (bag -- bag.max).max, count(bag.max, bag) = 1 ⊦ bag -- bag.max = ∅ |
(bag0 ++ m).max = ((bag0 ++ m) -- (bag0 ++ m).max).max, count((bag0 ++ m).max, bag0 ++ m) = 1, bag0.max = (bag0 -- bag0.max).max ∧ count(bag0.max, bag0) = 1 → bag0 -- bag0.max = ∅ ⊦ (bag0 ++ m) -- (bag0 ++ m).max = ∅
Used simplifier rules: nat-bag generated by ∅, ++;;% ⊦ count(n, ∅) = 0; (s)