| ∀ t0, r5, r, r0, r3, a, r6, t2, r1, t1, a0, P, H. # t0 < # t → ( 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)))), r5 = r, r0 ≠ null, r ≠ null, (r0 => mknode(r3, a, r6) * tr(r3, t) * tr(r6, t2) * tr(r1, t1) * r => mknode(r0, a0, r1) * P)(H), t = leaf ⊦ 〈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((t = leaf ⊃ t2; branch(t .butleftmost, a, t2)), a0, t1)) * P * true)(H) ∧ a1 = ((t = leaf ⊃ a; t .leftmost))) |
∀ t0, r5, r, r0, r3, a, r6, t2, r1, t1, a0, P, H. # t0 < # leaf → ( 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)))), r5 = r, r3 = null, r0 ≠ null, r ≠ null, ((((r => mknode(r0, a0, r1) * r0 => mknode(null, a, r6)) * tr(r1, t1)) * tr(r6, t2)) * 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(t2, a0, t1)) * P * true)(H) ∧ a1 = a)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ⌜bv⌝ (H) ↔ bv], [CSIMPSEQ : ⊦ (P0 ∧ P1)(H) ↔ ¬ ¬ (P0(H) ∧ P1(H))], [CSIMPSEQ : ⊦ (P0 ∧ P1) = (P1 ∧ P0)], [CSIMPSEQ : ⊦ ((P0 ∧ P1) ∧ P2) = (P0 ∧ P1 ∧ P2)], [CSIMPSEQ : ⊦ P0 * P1 = P1 * P0], [CSIMPSEQ : ⊦ (P0 * P1) * P2 = P0 * P1 * P2], [CSIMPSEQ : ⊦ emp * P = P], [CSIMPSEQ : ⊦ (⌜bv⌝ ∧ P0) * P1 = (⌜bv⌝ ∧ P0 * P1)], [CSIMPSEQ : ⊦ tr(r, leaf) = (emp ∧ ⌜r = null⌝ )])]]