| n1 = m1 + 1, n1 ≤ # lax0 + 1, 1 ≤ n1, ∀ n0, n1, n. n0 + n1 ≤ # lax0 → sublist(n0, n1, lax0.to-adr(n)) = sublist(n0, n1, lax0).to-adr(n) ⊦ @(n, m, m0) ' + sublist(0, m1, lax0.to-adr(n)) = sublist(0, n1, @(m, m0) ' + lax0).to-adr(n), n1 = 0 |
m1 ≤ # lax0, ∀ n0, n1, n. n0 + n1 ≤ # lax0 → sublist(n0, n1, lax0.to-adr(n)) = sublist(n0, n1, lax0).to-adr(n) ⊦ @(n, m, m0) ' + sublist(0, m1, lax0.to-adr(n)) = sublist(0, m1 + 1, @(m, m0) ' + lax0).to-adr(n)
Used simplifier rules: ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)% ⊦ m ≤ m + 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)