| zh[r] = mkznode(r0, zbrar, boolvar, boolvar0, m), zh[zbrar[n].child] = mkznode(r1, zbrar0, boolvar1, boolvar2, m0), ¬ boolvar2, 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)]) |
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)])