| 〈while r8 ≠ null do { r0 := r3 ; r3 := r8 ; r8 := H[r3] .left }〉 (r0 = r11 ∧ r3 = r12 ∧ r8 = r13), ∀ t0, r5, r, r0, r3, a, r6, t2, r1, t1, a0, P, H. # t0 < # branch(t3, a2, t4) → ( r5 = r ∧ r0 ≠ null ∧ r ≠ null ∧ (r0 => mknode(r3, a, r6) * tr(r3, t0) * tr(r6, t2) * tr(r1, t1) * r => mknode(r0, a0, r1) * P)(H) → 〈while r3 ≠ null do { r5 := r0 ; r0 := r3 ; r3 := H[r0] .left }〉 〈a1 := H[r0] .val ; r3 := H[r0] .right ; H[r5] .left := r3〉 ((tr(r, branch((t0 = leaf ⊃ t2; branch(t0 .butleftmost, a, t2)), a0, t1)) * P * true)(H) ∧ a1 = ((t0 = leaf ⊃ a; t0 .leftmost)))), H[r12] .val = ((t3 = leaf ⊃ a2; t3 .leftmost)), r ≠ null, r0 ≠ null, (r0 => mknode(r2, a1, r5) * tr(r2, (t3 = leaf ⊃ t4; branch(t3 .butleftmost, a2, t4))) * tr(r5, t0) * true * tr(r1, t1) * r => mknode(r0, a0, r1) * P )(H1), H1 ≡ H[r11, H[r11] .left:= H[r12] .right], ((r3 => mknode(r8, a2, r4) * tr(r8, t3) * tr(r4, t4)) * r => mknode(r0, a0, r1) * tr(r1, t1) * tr(r6, t0) * r0 => mknode(r3, a1, r6) * P)(H), ¬ (tr(r, branch(branch((t3 = leaf ⊃ t4; branch(t3 .butleftmost, a2, t4)), a1, t0), a0, t1)) * P * true)(H1) ⊦ |
〈while r8 ≠ null do { r0 := r3 ; r3 := r8 ; r8 := H[r3] .left }〉 (r0 = r11 ∧ r3 = r12 ∧ r8 = r13), ∀ t0, r5, r, r0, r3, a, r6, t2, r1, t1, a0, P, H. # t0 < # branch(t3, a2, t4) → ( r5 = r ∧ r0 ≠ null ∧ r ≠ null ∧ (r0 => mknode(r3, a, r6) * tr(r3, t0) * tr(r6, t2) * tr(r1, t1) * r => mknode(r0, a0, r1) * P)(H) → 〈while r3 ≠ null do { r5 := r0 ; r0 := r3 ; r3 := H[r0] .left }〉 〈a1 := H[r0] .val ; r3 := H[r0] .right ; H[r5] .left := r3〉 ((tr(r, branch((t0 = leaf ⊃ t2; branch(t0 .butleftmost, a, t2)), a0, t1)) * P * true)(H) ∧ a1 = ((t0 = leaf ⊃ a; t0 .leftmost)))), a3 = ((t3 = leaf ⊃ a2; t3 .leftmost)), r ≠ null, r0 ≠ null, (r0 => mknode(r2, a1, r5) * tr(r2, (t3 = leaf ⊃ t4; branch(t3 .butleftmost, a2, t4))) * tr(r5, t0) * true * tr(r1, t1) * r => mknode(r0, a0, r1) * P )(H1), H1 ≡ H[r11, H[r11] .left:= r9], ((r3 => mknode(r8, a2, r4) * tr(r8, t3) * tr(r4, t4)) * r => mknode(r0, a0, r1) * tr(r1, t1) * tr(r6, t0) * r0 => mknode(r3, a1, r6) * P)(H), ¬ (tr(r, branch(branch((t3 = leaf ⊃ t4; branch(t3 .butleftmost, a2, t4)), a1, t0), a0, t1)) * P * true)(H1), H[r12] = mknode(r7, a3, r9) ⊦
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ r = nd .left ∧ a = nd .val ∧ r0 = nd .right ↔ nd = mknode(r, a, r0)])], [EXTRATERMS : (H[r12], r7, a3, r9)]]