| kar[m1] = key-index(key0, m2), kar[0, kar[m]][m0] = key-index(key, m2), m0 = 0, m1 < m, m0 < m, m0 < # kar, m < # kar, m1 + 1 < # kar, m1 < # kar, m0 + 1 < # kar, ∀ m0, m1. m0 < # kar ∧ ¬ m < m0 ∧ m1 < # kar ∧ ¬ m < m1 ∧ m0 ≠ m1 → kar[m0].idx ≠ kar[m1].idx ⊦ m0 = m1, m1 = 0 |
kar[m1] = key-index(key0, m2), kar[m] = key-index(key, m2), m1 < # kar, m1 + 1 < # kar, m < # kar, m1 < m, ∀ m0, m1. m0 < # kar ∧ ¬ m < m0 ∧ m1 < # kar ∧ ¬ m < m1 ∧ m0 ≠ m1 → kar[m0].idx ≠ kar[m1].idx ⊦ # kar = 1, 0 = m1
Used simplifier rules: ⊦ 0 < m ↔ m ≠ 0; (s)% ⊦ m < n → n ≠ 0; (s)% ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1); (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < # kar → kar[m, ki][m] = ki; (s)