| zh[zbrar[n].child] = mkznode(r1, zbrar0, boolvar1, false, m0), zh[r] = mkznode(r0, zbrar, boolvar, boolvar0, m), n < # zbrar, btree-sub-clean(r, n, zh) ⊦ btree-sub-clean(r, n + 1, zh[r, mkznode(r0, zbrar[n, mkzbranch(key, adr, zbrar[n].child)], boolvar, boolvar0, m)]) |
⊦ btree-sub-clean(r, n, zh) ↔ r ∈ zh ∧ ( ¬ zh[r].leaf → (∀ n0. n0 < zh[r].usedsize ∧ n0 < n ∧ zh[r].zbranches[n0].branch? ∧ zh[r].zbranches[n0].child ∈ zh → ¬ zh[zh[r].zbranches[n0].child].dirty))
zh[r] = mkznode(r0, zbrar, boolvar, boolvar0, m), zh[zbrar[n].child] = mkznode(r1, zbrar0, boolvar1, false, m0), n < # zbrar, r ∈ zh, ¬ zh[r].leaf → (∀ n0. n0 < zh[r].usedsize ∧ n0 < n ∧ zh[r].zbranches[n0].branch? ∧ zh[r].zbranches[n0].child ∈ zh → ¬ zh[zh[r].zbranches[n0].child].dirty) ⊦ btree-sub-clean(r, n + 1, zh[r, mkznode(r0, zbrar[n, mkzbranch(key, adr, zbrar[n].child)], boolvar, boolvar0, m)])
Used terms: zh, n, r