| n < # ar1, n < n2 + n1, n1 + n2 ≤ # ar1, n2 ≤ m0 ⊦ splice(ar0, n0, ar1, n1, m0)[n] = (n < n1 ⊃ ar1[n];ar0[n + n0 - n1]), m0 = 0, n2 = 0, n1 + m0 ≤ # ar1 ∧ m0 ≠ 0 |
⊦ # ar1 < n1 + m ∧ m ≠ 0 → splice(ar0, n0, ar1, n1, m) = copy(ar0, n0, resize(ar1, n1 + m), n1, m)
n2 < m0, n < n1 + m0, n + 1 < n1 + m0, n < n2 + n1, n < # ar1, # ar1 < n1 + m0, n1 + n2 ≤ # ar1 ⊦ copy(ar0, n0, resize(ar1, n1 + m0), n1, m0)[n] = (n < n1 ⊃ ar1[n];ar0[n + n0 - n1]), n2 = 0
Used simplifier rules: splice-resize: ⊦ # ar1 < n1 + m ∧ m ≠ 0 → splice(ar0, n0, ar1, n1, m) = copy(ar0, n0, resize(ar1, n1 + m), n1, m);% ⊦ m < n → m ≤ n; (s)% ⊦ m + n < m + n0 ↔ n < n0; (s)% ⊦ m +1 = m + 1; (s)% ⊦ m < n → n ≠ 0; (s)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%trans: ⊦ n < n0 ∧ n0 < n1 → n < n1; (forward) from specification nat-basic%lf: ⊦ m < n ∧ n < n0 → m +1 < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)