| m1 = m0, ar[m] = ar[n0], ar[m1] = ar[n], m1 ≤ m0, n0 < # ar, m < # ar, m0 < # ar, n < # ar, m1 < n, m1 < # ar, m1 + 1 < # ar, m1 < m0 → (∀ n. m1 < n ∧ n < # ar → ar[m1] ≠ ar[n] ∨ ar[m1] = a), ∀ m1. m1 < m0 → (∀ n. m1 < n ∧ n < # ar → ar[m1] ≠ ar[n] ∨ ar[m1] = a), ∀ n0. m0 < n0 ∧ n0 < # ar → ar[n0] ≠ ar[m0] ∨ ar[n0] = a ⊦ ar[n] = a, m = n0, ar[n0] = a |
ar[m0] = ar[n], ar[m] = ar[n0], m0 < n, n < # ar, m0 < # ar, m < # ar, n0 < # ar, m0 + 1 < # ar, ∀ n0. m0 < n0 ∧ n0 < # ar → ar[n0] ≠ ar[n] ∨ ar[n0] = a, ∀ m1. m1 < m0 → (∀ n. m1 < n ∧ n < # ar → ar[m1] ≠ ar[n] ∨ ar[m1] = a) ⊦ ar[n0] = a, m = n0, ar[n] = a
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m +1 = m + 1], [CSIMPFORWARD : ⊦ m < n ∧ n < n0 → m +1 < n0], [CSIMPSEQ : ⊦ ¬ n < n], [CSIMPSEQ : ⊦ m ≤ m])]]