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