| x0 = a0 + y, ordered<(x0) ↔ (∀ m, n. m < n ∧ n < # x0 → x0[m] < x0[n]) ⊦ 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: e-01: ⊦ a ' + x ≠ []; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%len-02: ⊦ # a ' = 0 +1; from specification list%len: ⊦ #(x + y) = # x + # y; from specification list%c: ⊦ a + x = a ' + x; from specification list