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