| count(a0, (bag0 -- a0) \ bag) = (count(a0, bag) < count(a0, bag0) - (count(a0, bag0) ≠ 0 ⊃ 1;0) ⊃ count(a0, bag0) - (count(a0, bag0) ≠ 0 ⊃ 1;0) - count(a0, bag);0), count(a0, bag) + 1 < count(a0, bag0) ⊦ 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) - 1 - count(a0, bag) = count(a0, bag0) - count(a0, bag) + 1
Used simplifier rules: f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%n0 ≤ n ⊦ m < n - n0 ↔ m + n0 < n; (s)% ⊦ m < 1 ↔ m = 0; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ m < n → n ≠ 0; (s)