| n0 = n2 +1, n0 + n1 ≤ # lax0 + 1, ∀ n0, n1, n. n0 + n1 ≤ # lax0 → sublist(n0, n1, lax0.to-adr(n)) = sublist(n0, n1, lax0).to-adr(n) ⊦ sublist(n0, n1, @(n, m, m0) ' + lax0.to-adr(n)) = sublist(n0, n1, @(m, m0) ' + lax0).to-adr(n) |
n2 + n1 ≤ # lax0, ∀ n0, n1, n. n0 + n1 ≤ # lax0 → sublist(n0, n1, lax0.to-adr(n)) = sublist(n0, n1, lax0).to-adr(n) ⊦ sublist(n2 + 1, n1, @(n, m, m0) ' + lax0.to-adr(n)) = sublist(n2 + 1, n1, @(m, m0) ' + lax0).to-adr(n)
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m +1 = m + 1; (s)