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