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