| # x0 ≤ n ⊦ prefixn(n, x0 + x1) = x0 + prefixn(n - # x0, x1) |
⊦ prefixn(n, x) = (n ≤ # x ⊃ firstn(n, x);x)
# x0 ≤ n ⊦ (n ≤ # x0 + # x1 ⊃ firstn(n, x0 + x1);x0 + x1) = x0 + (n ≤ # x1 + # x0 ⊃ firstn(n - # x0, x1);x1)
Used simplifier rules: prefixn: ⊦ prefixn(n, x) = (n ≤ # x ⊃ firstn(n, x);x);%n0 ≤ n ⊦ n - n0 ≤ m ↔ n ≤ m + n0; (s)% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ #(x + y) = # x + # y; (s)