| m ' + nx0 < # ar, ∀ ar. nx0 < # ar ↔ (∀ n. n ∈ nx0 → n < # ar) ⊦ m ' + nx0 < # ar ↔ (∀ n. n = m ∨ n ∈ nx0 → n < # ar) |
m < # ar, nx0 < # ar, m < n, n ∈ nx0, # ar ≤ n, ∀ ar. nx0 < # ar ↔ (∀ n. n ∈ nx0 → n < # ar) ⊦ n = m
Used simplifier rules: ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ m < n → n ≠ 0; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m < n ↔ ¬ n ≤ m; (ss)%a: ⊦ (nx + nx0) + nx1 = nx + nx0 + nx1; from specification list[nat-list-set]% ⊦ m ' + nx < n ↔ m < n ∧ nx < n; (ws)