| n2 < n0 + n1, n2 < # copy(ar, n, mkarray(n0), 0, n0) + # copy(ar, n + n0, mkarray(n1), 0, n1) ⊦ ar[n2 + n] = (n2 < # copy(ar, n, mkarray(n0), 0, n0) ⊃ copy(ar, n, mkarray(n0), 0, n0)[n2] ;copy(ar, n + n0, mkarray(n1), 0, n1)[n2 - # copy(ar, n, mkarray(n0), 0, n0)] ) |
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])
Used simplifier rules: ⊦ # mkarray(n) = n; (s)% ⊦ # copy(ar, m, ar0, m0, n) = # ar0; (s)