| n ≠ 0 ⊦ ⟪caterpillar_init#(n; ; h, xs, xs_len, ys)⟫ (# xs < h ∧ # xs = xs_len ∧ (ys = [] ∨ # ys = h)) |
⊦ ⟪if n > 0 then h := n, xs := [], xs_len := 0, ys := [] else abort⟫ (# xs < h ∧ # xs = xs_len ∧ (ys = [] ∨ # ys = h)), n = 0
Used simplifier rules: init: ⊦ ;