| zh[rp] = mkznode(rp0, zbrar, boolvar, dirty, nused), ((btree(null, null, adr, height0, false, fi, nodes(istore0), alladrs0, alladrs0, ok) * true))(zh), ((btree(null, rp, adr, height, false, ri, nodes(istore), as, alladrs, ok) * true))(zh), inv(istore), inv(istore0), refsize-cons(istore0, alladrs0), refsize-cons(istore, as), adr ∈ istore, as ⊆ alladrs, as ⊆ dom nodes(istore), alladrs0 ⊆ dom nodes(istore), alladrs ⊆ dom nodes(istore), alladrs0 ⊆ dom nodes(istore0), istore0 ⊑ istore, ¬ dirty ∨ rp = null, rp = null ∨ ¬ zh[rp].dirty ⊦ (∃ height, dirty, as, alladrs. ((btree(null, rp, adr, height, dirty, ri, nodes(remove-refsize0(istore)), as, alladrs, ok) * true))(zh) ∧ refsize-cons(remove-refsize0(istore), as) ∧ adr ∈ remove-refsize0(istore) ∧ alladrs ⊆ dom nodes(remove-refsize0(istore))) ∧ (∃ height, as, alladrs. ((btree(null, null, adr, height, false, fi, nodes(remove-refsize0(istore)), as, alladrs, ok) * true))(zh) ∧ refsize-cons(remove-refsize0(istore), as) ∧ alladrs ⊆ dom nodes(remove-refsize0(istore))) |
zh[rp] = mkznode(rp0, zbrar, boolvar, dirty, nused), ((btree(null, rp, adr, height, false, ri, nodes(istore), alladrs, alladrs, ok) * true))(zh), ((btree(null, null, adr, height0, false, fi, nodes(istore0), alladrs0, alladrs0, ok) * true))(zh), inv(istore0), inv(istore), refsize-cons(istore, alladrs), refsize-cons(istore0, alladrs0), adr ∈ istore, alladrs0 ⊆ dom nodes(istore0), alladrs ⊆ dom nodes(istore), alladrs0 ⊆ dom nodes(istore), istore0 ⊑ istore, rp = null ∨ ¬ dirty, ¬ dirty ∨ rp = null ⊦ (∃ height, dirty, as, alladrs. ((btree(null, rp, adr, height, dirty, ri, nodes(remove-refsize0(istore)), as, alladrs, ok) * true))(zh) ∧ refsize-cons(remove-refsize0(istore), as) ∧ adr ∈ remove-refsize0(istore) ∧ alladrs ⊆ dom nodes(remove-refsize0(istore))) ∧ (∃ height, as, alladrs. ((btree(null, null, adr, height, false, fi, nodes(remove-refsize0(istore)), as, alladrs, ok) * true))(zh) ∧ refsize-cons(remove-refsize0(istore), as) ∧ alladrs ⊆ dom nodes(remove-refsize0(istore)))
Used simplifier rules: btree-clean-alladrs: ⊦ (( btree(rp, r, adr, height, false, ri, iast, as, alladrs, nstat) * P) )(zh) → as = alladrs;%btree-refed-subseteq-alladrs: ⊦ (( btree(rp, r, adr, height, dirty, fi, iast, as, alladrs, nstat) * P) )(zh) → as ⊆ alladrs;%btree-adrs: ⊦ (( btree (rp, rp0, adr0, height, dirty, fi, iast, as, alladrs, nstat) * P) )(zh) → as ⊆ dom iast;% ⊦ mkznode(r, zbrar, boolvar, boolvar0, m).dirty ↔ boolvar0; (s)% ⊦ as ⊆ as; (s)%sep-com: ⊦ P * P2 = P2 * P; from specification heap-sep[zheap]%sep-ass: ⊦ (P * P3) * P4 = P * P3 * P4; from specification heap-sep[zheap]