| n ≤ # x, n ≤ n0 ⊦ firstn(n, x) + (n0 ≤ (# x - n) + n ⊃ firstn(n0 - n, restn(n, x));restn(n, x)) = (n0 ≤ # x ⊃ firstn(n0, x);x) |
# y = n, x = y + z, n ≤ n0, n ≤ # x ⊦ y + (n0 ≤ (# x - n) + n ⊃ firstn(n0 - n, z);z) = (n0 ≤ # x ⊃ firstn(n0, x);x)
Used simplifier rules: ⊦ n ≤ # x → (y = firstn(n, x) ∧ z = restn(n, x) ↔ x = y + z ∧ # y = n); (elim) Used terms: x, n, y, z