| n0 ≤ # x0, n1 < # x0 ∧ n0 = n1 ∨ # x0 ≤ n0 ∧ # x0 ≤ n1 ∧ x1 = [] ∨ # x0 ≤ n0 ∧ n1 = # x0 ∧ x1 ≠ [] ⊦ firstn(n0, x0) = (n1 ≤ # x0 + # x1 ⊃ firstn(n1, x0 + x1);x0 + x1) |
n0 ≤ # x0, n1 < # x0 ∧ n0 = n1 ∨ n0 = # x0 ∧ # x0 ≤ n1 ∧ x1 = [] ∨ n0 = # x0 ∧ n1 = # x0 ∧ x1 ≠ [] ⊦ firstn(n0, x0) = (n1 ≤ # x0 + # x1 ⊃ firstn(n1, x0 + x1);x0 + x1)
Used simplifier rules: ⊦ m ≤ n → (n ≤ m ↔ m = n); (s)