| A[n0] = A[m], mkbag(A[m, a], n0) = (mkbag(A, n0) -- A[m]) ++ a, m < # A, m ≤ n0, ∀ m, A, a. m < n0 ∧ m < # A → mkbag(A[m, a], n0) = (mkbag(A, n0) -- A[m]) ++ a ⊦ (mkbag(A, n0) -- A[m]) ++ A[m, a][n0] = mkbag(A, n0) |
A[n0] = A[m], mkbag(A[m, a], n0) = (mkbag(A, n0) -- A[m]) ++ a, m < # A, m ≤ n0, m < n0 ∧ m < # A → mkbag(A[m, A[m, a][n0]], n0) = (mkbag(A, n0) -- A[m]) ++ A[m, a][n0], ∀ m, A, a. m < n0 ∧ m < # A → mkbag(A[m, a], n0) = (mkbag(A, n0) -- A[m]) ++ a ⊦ (mkbag(A, n0) -- A[m]) ++ A[m, a][n0] = mkbag(A, n0)
Used terms: m, A, A[m, a][n0]