| ordered<(x0) ↔ (∀ m, n. m < n ∧ n < # x0 → x0[m] < x0[n]), x0 = a0 + y ⊦ a < a0 ∧ ordered<(x0) ↔ (∀ m, n. m < n ∧ ¬ # x0 < n → (a ' + x0)[m] < (a ' + x0)[n]), x0 = [] |
ordered<(a0 ' + y) ↔ (∀ m, n. m < n ∧ n < 1 + # y → (a0 ' + y)[m] < (a0 ' + y)[n]) ⊦ a < a0 ∧ ordered<(a0 ' + y) ↔ (∀ m, n. m < n ∧ ¬ 1 + # y < n → (a ' + a0 ' + y)[m] < (a ' + a0 ' + y)[n])
Used simplifier rules: ⊦ a ' + x ≠ []; (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ # a ' = 0 +1; (s)% ⊦ #(x + y) = # x + # y; (s)% ⊦ a + x = a ' + x; (s)