| # xs = xs_len, xs_len + 1 = h, # xs < h, # ys = 0 ∨ # ys = h ⊦ ⟪ys := a + xs; xs_len := 0; xs := []⟫ (# xs < h ∧ # xs = xs_len ∧ (# ys = 0 ∨ # ys = h)) |
# xs = xs_len, xs_len + 1 = h, # xs < h, # ys = 0 ∨ # ys = h ⊦ ⟪xs_len := 0; xs0 := []⟫ (# xs0 < h ∧ # xs0 = xs_len ∧ (#(a + xs) = 0 ∨ #(a + xs) = h))