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