| m < ((m0 + 1) * (m0 + 2)) / 2, m < ((m0 + 1) * (m0 + 2)) / 2, true, ∀ m2, m3, n. m2 - m3 < m - m0 → true → (n * (n + 1)) / 2 ≤ m2 ∧ m2 < ((n + 1) * (n + 2)) / 2 ∧ (m3 * (m3 + 1)) / 2 ≤ m2 → maxenc(m3, m2) = n ⊦ ¬ (n * (n + 1)) / 2 < (m0 * (m0 + 1)) / 2, ¬ m0 < n, (n * (n + 1)) / 2 ≤ m ∧ m < ((n + 1) * (n + 2)) / 2 ∧ (m0 * (m0 + 1)) / 2 ≤ m → m0 = n |
⊦ (m * (m + 1)) / 2 < (n * (n + 1)) / 2 ↔ m < n
Used simplifier rules: ls-02: ⊦ m < n → ¬ n < m; from specification nat-basic1 Used terms: m0, n