| n % 2 = 0, n + 1 < # x, x[n + 1] < x[n], x[n, x[n + 1]][n + 1, x[n]][1 + 2 * n0] < x[n, x[n + 1]][n + 1, x[n]][2 * n0], n < # x, 2 * n0 ≤ n, ∀ n0. 1 + 2 * n0 < n → ¬ x[1 + 2 * n0] < x[2 * n0] ⊦ x = [], n + 1 < # x ∧ n ≠ 2 * n0 |
2 * n0 < # x, 2 * n0 + 1 < # x, x[2 * n0 + 1] < x[2 * n0], x[2 * n0] < x[2 * n0, x[2 * n0 + 1]][2 * n0 + 1, x[2 * n0]][2 * n0], x[2 * n0 + 1] < x[2 * n0, x[2 * n0 + 1]][2 * n0 + 1, x[2 * n0]][2 * n0], ∀ n. n < n0 → ¬ x[1 + 2 * n] < x[2 * n] ⊦ x = []
Used simplifier rules: transitivity: ⊦ a < b ∧ b < c → a < c; (forward) from specification oelem% ⊦ n0 < m0 → (m0 * m + n0 < m0 * n ↔ m < n); (s)%0 ≠ m ⊦ (* m) * n ≤ m * n0 ↔ n ≤ n0; (s)%m < # x ⊦ x[m, a][m] = a; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%eqle-one: ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward) from specification nat% ⊦ m ≤ m; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < n → (n ≤ m + 1 ↔ n = m + 1); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ n < # x → # x[n, a] = # x; (s)%c: ⊦ m + n = n + m; from specification nat-basic%mult-c: ⊦ m * n = n * m; from specification nat-mult%mult-a: ⊦ m0 * m * n = (m0 * m) * n; from specification nat-mult%n ≠ 0 ⊦ (m * n) % n = 0; (s)%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic