| j1 < 2, i0 < 2 ^ (i + 1), 0 < i0 * 2 + j1, 2 ^ i < 2 ^ (i + 1), 0 < 2 ^ (i + 1), 0 ≤ j1, 0 ≤ i, 2 ^ i ≤ i0, 0 ≤ i0, ∀ j0. i→n(j0) < i→n(i0 * 2 + j1) → 0 < j0 → (∃ i. 0 ≤ i ∧ 2 ^ i ≤ j0 ∧ j0 < 2 ^ (i + 1)) ⊦ i0 * 2 + j1 = 0, i0 * 2 + j1 = 1, 0 ≤ i + 1 ∧ 2 ^ (i + 1) ≤ i0 * 2 + j1 ∧ i0 * 2 + j1 < 2 ^ (2 + i) |
⊦ 0 < i → j ^ i = j ^ i -1 * j
0 < 2 ^ (i + 1)-1 * 2, 2 ^ i < 2 ^ (i + 1)-1 * 2, 0 < i0 * 2 + j1, i0 < 2 ^ (i + 1)-1 * 2, j1 < 2, 0 < i + 1, 0 ≤ i0, 2 ^ i ≤ i0, 0 ≤ i, 0 ≤ j1, ∀ j0. i→n(j0) < i→n(i0 * 2 + j1) → 0 < j0 → (∃ i. 0 ≤ i ∧ 2 ^ i ≤ j0 ∧ j0 < 2 ^ (i + 1)) ⊦ i0 * 2 + j1 = 1, i0 * 2 + j1 = 0, 0 ≤ i + 1 ∧ 2 ^ (i + 1)-1 * 2 ≤ i0 * 2 + j1 ∧ i0 * 2 + j1 < 2 ^ (2 + i)
Used simplifier rules: ⊦ (* j) < i0 + (* j0) ↔ j - j0 < i0; (s)% ⊦ ~1 < i ↔ 0 ≤ i; (s)% ⊦ i ≤ j ↔ ¬ j < i; (ss)% ⊦ i ≤ j → (j < i ↔ false); (as)%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%add-c: ⊦ i + j = j + i; from specification int-basic2 Used terms: i + 1, 2