| # ar = 0 ⊦ ar = [], # ar = # copy(subarray(ar, 1, # ar - 1), 0, mkarray(# subarray(ar, 1, # ar - 1) + 1), 1, # subarray(ar, 1, # ar - 1)) ∧ ( n < # ar → ar[n] = copy(subarray(ar, 1, # ar - 1), 0, mkarray(# subarray(ar, 1, # ar - 1) + 1), 1, # subarray(ar, 1, # ar - 1))[0, ar[0]][n]) |
# ar = 0 ⊦ ar = [], 0 = # copy(subarray(ar, 1, 0 - 1), 0, mkarray(# subarray(ar, 1, 0 - 1) + 1), 1, # subarray(ar, 1, 0 - 1)) ∧ (n < 0 → ar[n] = copy(subarray(ar, 1, 0 - 1), 0, mkarray(# subarray(ar, 1, 0 - 1) + 1), 1, # subarray(ar, 1, 0 - 1))[0, ar[0]][n])