| A[m] = A[n], count(A[m], mkbag(A, i) -- A[n]) = 0, m < i, n < i, m < # A, n < # A, i ≤ # A ⊦ n = m |
count(A[n], mkbag(A, i)) - (count(A[n], mkbag(A, i)) = 0 ⊃ 0;1) = 0, A[m] = A[n], m < i, n < i, m < # A, n < # A, i ≤ # A ⊦ n = m
Used simplifier rules: count-del-same: ⊦ count(a, bag -- a) = count(a, bag) - (count(a, bag) = 0 ⊃ 0;1);