| # 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)) |
# xs = xs_len, xs_len + 1 = h, # xs < h, # ys = 0 ∨ # ys = h ⊦ ⟪xs0 := []⟫ (# xs0 < h ∧ # xs0 = 0 ∧ (#(a + xs) = 0 ∨ #(a + xs) = h))