| x0 = a0 + y, ordered≤(x0) ↔ (∀ m, n. m ≤ n ∧ n < # x0 → ¬ x0[n] < x0[m]) ⊦ ¬ a0 < a ∧ ordered≤(x0) ↔ (∀ m, n. m ≤ n ∧ ¬ # x0 < n → ¬ (a ' + x0)[n] < (a ' + x0)[m]), x0 = [] |
ordered≤(a0 ' + y) ↔ (∀ m, n. m ≤ n ∧ n < 1 + # y → ¬ (a0 ' + y)[n] < (a0 ' + y)[m]) ⊦ ¬ a0 < a ∧ ordered≤(a0 ' + y) ↔ (∀ m, n. m ≤ n ∧ ¬ 1 + # y < n → ¬ (a ' + a0 ' + y)[n] < (a ' + a0 ' + y)[m])
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