| ∀ n. n < # ints0 → (is2bs(ints0)[n]) = i2b(ints0[n]) ∨ ints0 = [], n < # (i + ints0) ⊦ (is2bs(i + ints0)[n]) = i2b((i + ints0)[n]), i + ints0 = [] |
⊦ is2bs(i ' + ints) = i2b(i) ' + is2bs(ints)
n ≤ # ints0, ∀ n0. ¬ # ints0 ≤ n0 → (is2bs(ints0)[n0]) = i2b(ints0[n0]) ∨ ints0 = [] ⊦ (i2b(i) ' + is2bs(ints0))[n] = i2b((i ' + ints0)[n])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ ¬ m < n ↔ n ≤ m], [CSIMPSEQ : ⊦ m < n + 1 ↔ ¬ n < m], [CSIMPSEQ : ⊦ # i ' = 0 +1], [CSIMPSEQ : ⊦ # (ints + ints0) = # ints + # ints0], [CSIMPSEQ : ⊦ i ' + ints ≠ []], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ i + ints = i ' + ints])]]