| m + nused0 < # zbrar, m < # zbrar[m, mkzentry(zbrar[m].key, adr)], sorted(zbrar, m, nused0 + 1), ∀ n, zbrar, m, adr. n < nused0 ∧ sorted(zbrar, m, nused0) ∧ m + nused0 ≤ # zbrar → payload(zbrar[m + n, mkzentry(zbrar[m + n].key, adr)], m, nused0) = payload(zbrar, m, nused0)[zbrar[m + n].key, adr] ⊦ (zbrar[m, mkzentry(zbrar[m].key, adr)][m].entry? ⊃ payload(zbrar[m, mkzentry(zbrar[m].key, adr)], m + 1, nused0) [zbrar[m, mkzentry(zbrar[m].key, adr)][m].key, zbrar[m, mkzentry(zbrar[m].key, adr)][m].adr ] ;payload(zbrar[m, mkzentry(zbrar[m].key, adr)], m + 1, nused0) ) = payload(zbrar, m, nused0 + 1)[zbrar[m].key, adr] |
m + nused0 < # zbrar, m < # zbrar, sorted(zbrar, m, nused0 + 1), ∀ n, zbrar, m, adr. n < nused0 ∧ sorted(zbrar, m, nused0) ∧ m + nused0 ≤ # zbrar → payload(zbrar[m + n, mkzentry(zbrar[m + n].key, adr)], m, nused0) = payload(zbrar, m, nused0)[zbrar[m + n].key, adr] ⊦ payload(zbrar[m, mkzentry(zbrar[m].key, adr)], m + 1, nused0)[zbrar[m].key, adr] = (zbrar[m].entry? ⊃ payload(zbrar, m + 1, nused0)[zbrar[m].key, zbrar[m].adr];payload(zbrar, m + 1, nused0))[zbrar[m].key, adr]
Used simplifier rules: payload-rec: ⊦ m < # zbrar → payload(zbrar, m, nused + 1) = (zbrar[m].entry? ⊃ payload(zbrar, m + 1, nused)[zbrar[m].key, zbrar[m].adr] ;payload(zbrar, m + 1, nused) );%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ mkzentry(key, adr).adr = adr; (s)% ⊦ mkzentry(key, adr).key = key; (s)% ⊦ mkzentry(key, adr).entry?; (s)%m < # zbrar ⊦ zbrar[m, zbr][m] = zbr; (s)% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ # zbrar[n, zbr] = # zbrar; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)