| ¬ (¬ m0 < m1 → (m1 < n ∧ n < # ar → ar[m1] ≠ ar[n] ∨ ar[m1] = a)), ar[m] = ar[n0], m0 < # ar, m < # ar, n0 < # ar, ∀ n0. m0 < n0 ∧ n0 < # ar → ar[n0] ≠ ar[m0] ∨ ar[n0] = a, ∀ m1. m1 < m0 → (∀ n. m1 < n ∧ n < # ar → ar[m1] ≠ ar[n] ∨ ar[m1] = a) ⊦ ar[n0] = a, m = n0 |
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. 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
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m +1 = m + 1], [CSIMPSEQ : ⊦ m < n → n ≠ 0], [CSIMPFORWARD : ⊦ m < n → n ≠ 0], [CSIMPFORWARD : ⊦ m < n ∧ n < n0 → m +1 < n0], [CSIMPFORWARD : ⊦ m ≤ n ∧ n < n0 → m < n0], [CSIMPSEQ : ⊦ ¬ m < n ↔ n ≤ m])]]