| count(a0, bag) + 1 < count(a0, bag0), count(a0, (bag0 -- a0) \ bag) = (count(a0, bag) + (count(a0, bag0) ≠ 0 ⊃ 1;0) < count(a0, bag0) ⊃ count(a0, bag0) - (count(a0, bag0) ≠ 0 ⊃ 1;0) - count(a0, bag);0) ⊦ count(a0, (bag0 -- a0) \ bag) = count(a0, bag0) - count(a0, bag) + 1 |
count(a0, (bag0 -- a0) \ bag) = count(a0, bag0) - 1 - count(a0, bag), count(a0, bag) + 1 < count(a0, bag0) ⊦ count(a0, bag0) = 0, count(a0, bag0) - 1 - count(a0, bag) = count(a0, bag0) - count(a0, bag) + 1
Used simplifier rules: f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1