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