| ar[m] = ar[n], n < # ar, m < # ar, ∀ m1. m1 < # ar → (∀ n. m1 < n ∧ n < # ar → ar[m1] ≠ ar[n]), ar[m1] ≠ ar[n2] ∨ m1 = n2 ∨ ¬ m1 < # ar ∨ ¬ n2 < # ar, m < n ∧ n < # ar → ar[m] ≠ ar[n] ⊦ m = n |
ar[m] = ar[n], n < # ar, n < m, m < # ar, n + 1 < # ar, ar[m1] ≠ ar[n2] ∨ m1 = n2 ∨ ¬ m1 < # ar ∨ ¬ n2 < # ar, ∀ m1. m1 < # ar → (∀ n. m1 < n ∧ n < # ar → ar[m1] ≠ ar[n]) ⊦ 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)])]]