| n < n2 + n1, # ar1 < n1 + n2, n2 ≤ m0, max(# ar1, n1 + m0) ≤ n ⊦ m0 = 0, n2 = 0, zero = copy(ar0, n0, resize(ar1, n1 + n2), n1, n2)[n] |
# ar1 < n1 + n2, n < n2 + n1, max(# ar1, n1 + m0) < n2 + n1, max(# ar1, n1 + m0) ≤ n, n2 ≤ m0 ⊦ m0 = 0, n2 = 0, zero = copy(ar0, n0, resize(ar1, n1 + n2), n1, n2)[n]
Used simplifier rules: fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat