| n2 < n0 + n1 ⊦ ar[n2 + n] = (n2 < n0 ⊃ copy(ar, n, mkarray(n0), 0, n0)[n2];copy(ar, n + n0, mkarray(n1), 0, n1)[n2 - n0]), n2 < # mkarray(n0) |
n2 < n0 + n1, n0 ≤ n2 ⊦ ar[n2 + n] = copy(ar, n + n0, mkarray(n1), 0, n1)[n2 - n0], n1 = 0
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < m + n ↔ n ≠ 0; (s)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ # mkarray(n) = n; (s)