| nused < # zbrar, sorted(zbrar, 0, nused), scan(key, zbrar, 0, nused) ≤ nused, scan(key, zbrar, 0, nused) ≤ nused → key-range(zbrar, scan(key, zbrar, 0, nused), nused + 1, ri0) = key-range(zbrar, scan(key, zbrar, 0, nused), nused + 1, ri1), scan(key, zbrar, 0, nused) < nused → key ≤ zbrar[scan(key, zbrar, 0, nused)].key, ∀ n. n ≤ nused → key-range(zbrar, n, nused + 1, ri0) = key-range(zbrar, n, nused + 1, ri1), ∀ n0. n0 < scan(key, zbrar, 0, nused) → zbrar[n0].key < key, ∀ n1. scan(key, zbrar, 0, nused) < n1 ∧ n1 < nused → key < zbrar[n1].key ⊦ (key ∈ ri0 ↔ key ∈ ri1) ∧ (key ∈ ri0 → ri0[key] = ri1[key]) |
key-range(zbrar, scan(key, zbrar, 0, nused), nused + 1, ri0) = key-range(zbrar, scan(key, zbrar, 0, nused), nused + 1, ri1), nused < # zbrar, scan(key, zbrar, 0, nused) < # zbrar, sorted(zbrar, 0, nused), scan(key, zbrar, 0, nused) ≤ nused, scan(key, zbrar, 0, nused) < nused → ¬ zbrar[scan(key, zbrar, 0, nused)].key < key, ∀ n1. scan(key, zbrar, 0, nused) < n1 ∧ n1 < nused → key < zbrar[n1].key, ∀ n0. n0 < scan(key, zbrar, 0, nused) → zbrar[n0].key < key, ∀ n. n ≤ nused → key-range(zbrar, n, nused + 1, ri0) = key-range(zbrar, n, nused + 1, ri1) ⊦ (key ∈ ri0 ↔ key ∈ ri1) ∧ (key ∈ ri0 → ri0[key] = ri1[key])
Used simplifier rules: fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ key0 ≤ key1 ↔ ¬ key1 < key0; (s)