| ∀ ar. nx0 < # ar ↔ (∀ n. n ∈ nx0 → n < # ar) ⊦ m + nx0 < # ar ↔ (∀ n. n ∈ m + nx0 → n < # ar) |
∀ ar. nx0 < # ar ↔ (∀ n. n ∈ nx0 → n < # ar) ⊦ m ' + nx0 < # ar ↔ (∀ n. n = m ∨ n ∈ nx0 → n < # ar)
Used simplifier rules: a: ⊦ (nx + nx0) + nx1 = nx + nx0 + nx1; from specification list[nat-list-set]% ⊦ n ∈ n0 ' + nx ↔ n = n0 ∨ n ∈ nx; (s)% ⊦ n + nx = n ' + nx; (s)