| ¬ m ≠ 0, ordered≤(a0 ' + y), m ≤ m0 + 1, (a0 ' + y)[m0] < (a ' + a0 ' + y)[m], m ≤ 1 + # y, m0 ≤ # y, ∀ m, n. m ≤ n ∧ n < 1 + # y → ¬ (a0 ' + y)[n] < (a0 ' + y)[m] ⊦ a0 < a |
m0 ≤ # y, ordered≤(a0 ' + y), (a0 ' + y)[m0] < a, ∀ m, n. m ≤ n ∧ n < 1 + # y → ¬ (a0 ' + y)[n] < (a0 ' + y)[m] ⊦ a0 < a
Used simplifier rules: a: ⊦ (x + y) + z = x + y + z; from specification list%get-zero-01: ⊦ (a ' + x)[0] = a; from specification list-del%lez: ⊦ 0 ≤ m; from specification nat