| n = m + 1, n ≤ # ax0, ∀ n, fs. n < # ax0 → fs[ax0][n] = fs[ax0[n]] ∨ ax0 = [] ⊦ fs[ax0][m] = fs[(adr ' + ax0)[n]], n = 0 |
m < # ax0, ∀ n, fs0. n < # ax0 → fs0[ax0][n] = fs0[ax0[n]] ⊦ fs[ax0][m] = fs[ax0[m]], ax0 = []
Used simplifier rules: ⊦ # ax = 0 ↔ ax = []; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m + 1 ≤ n ↔ m < n; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ (adr ' + ax)[n + 1] = ax[n]; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + 1 ≠ 0; (s)