| m0 - (m0 = 0 ⊃ 0;1) = 0, A[n0] = A[n], A[m] = A[n], count(A[n], mkbag(A, i)) = m0 + 1, m < i, n < i, n0 < i, m < # A, n < # A, n0 < # A, i ≤ # A ⊦ count(A[n], mkbag(A, i)) = 0, n = n0, n = m, n0 = m |
m0 - (m0 = 0 ⊃ 0;1) = 0, A[n0] = A[n], A[m] = A[n], count(A[n], mkbag(A, i)) = m0 + 1, m < i, n < i, n0 < i, m < # A, n < # A, n0 < # A, i ≤ # A ⊦ n = n0, n = m, n0 = m
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + 1 ≠ 0; (s)