| ⊦ ar = [], # ar = # 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 → 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 = [], # 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])
Used simplifier rules: ⊦ # ar[n, a] = # ar; (s)