| n + 1 < # x, m < # x ⊦ (x -p m)[n] = (n < m ⊃ x[n];x.tail[n]), x = [] |
m < #(a + x0), n + 1 < #(a + x0), ∀ n, m. n + 1 < # x0 ∧ m < # x0 → (x0 -p m)[n] = (n < m ⊃ x0[n];x0.tail[n]) ∨ x0 = [] ⊦ a + x0 = [], ((a + x0) -p m)[n] = (n < m ⊃ (a + x0)[n];(a + x0).tail[n])
Used simplifier rules: list freely generated by [], +;;