| # ar0 = n0 + n, n ≤ # ar1 ⊦ copy(ar1, 0, ar0, 0, n) = subarray(ar1, 0, n) + subarray(ar0, n, n0) |
⊦ n1 ≤ # ar0 ∧ n0 + n1 ≤ # ar1 → copy(ar0, 0, ar1, n0, n1) = subarray(ar1, 0, n0) + subarray(ar0, 0, n1) + subarray(ar1, n0 + n1, # ar1 - n0 - n1)
⊦ ar0 + ar1 = ar0 ↔ # ar1 = 0
⊦ (ar + ar0) + ar1 = ar + ar0 + ar1
⊦ mkarray(0) + ar = ar
⊦ (ar + ar0) + ar1 = ar + ar0 + ar1
⊦ ar + ar0 = ar + ar1 ↔ ar0 = ar1
Used simplifier rules: append-prefix-left: ⊦ ar0 + ar1 = ar0 ↔ # ar1 = 0;%append-a: ⊦ (ar + ar0) + ar1 = ar + ar0 + ar1;%append-zero-left: ⊦ mkarray(0) + ar = ar;%append-a: ⊦ (ar + ar0) + ar1 = ar + ar0 + ar1;%append-eq-left: ⊦ ar + ar0 = ar + ar1 ↔ ar0 = ar1;% ⊦ subarray(ar, n, 0) = mkarray(0); (s)% ⊦ n + 0 = n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m - 0 = m; (s)% ⊦ m + n - m = n; (s)% ⊦ m = m + n ↔ n = 0; (s)% ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf: ⊦ m < n ∧ n < n0 → m +1 < n0; (forward) from specification nat-basic%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%trans: ⊦ n < n0 ∧ n0 < n1 → n < n1; (forward) from specification nat-basic% ⊦ m < n → n ≠ 0; (s)% ⊦ m +1 = m + 1; (s)% ⊦ ¬ m + n < m; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%# ar0 = m, # ar1 = m ⊦ copy(ar0, 0, ar1, 0, m) = ar0; (s)%# ar = n ⊦ subarray(ar, 0, n) = ar; (s)% ⊦ # subarray(ar, m, n) = n; (s) Used terms: n, 0, ar0, ar1