| ar1 = ar0[n, a] ⊦ # ar0 = # ar1 ∧ (∀ m. m < # ar0 → ar1[m] = (n = m ⊃ a;ar0[m])) |
m < # ar0 ⊦ ar0[n, a][m] = (n = m ⊃ a;ar0[m]), # ar0 = 0
Used simplifier rules: Size-put: ⊦ # ar[n, a] = # ar;%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1