| zbrar[n].child = r1, zh[r].zbranches = zbrar, n < # zbrar, btree-sub-clean(r, n, zh) ⊦ zh[r1].dirty, btree-sub-clean(r, n + 1, zh[r, zh[r].zbranches:= zbrar[n, mkzbranch(key, adr, r1)]]) |
n < # zh[r].zbranches, btree-sub-clean(r, n, zh) ⊦ zh[zh[r].zbranches[n].child].dirty, btree-sub-clean(r, n + 1, zh[r, zh[r].zbranches:= zh[r].zbranches[n, mkzbranch(key, adr, zh[r].zbranches[n].child)]])
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic