Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  nn0sumshdiglemB Structured version   Visualization version   GIF version

Theorem nn0sumshdiglemB 47260
Description: Lemma for nn0sumshdig 47263 (induction step, odd multiplier). (Contributed by AV, 7-Jun-2020.)
Assertion
Ref Expression
nn0sumshdiglemB (((π‘Ž ∈ β„• ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) ∧ 𝑦 ∈ β„•) β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
Distinct variable group:   π‘˜,π‘Ž,π‘₯,𝑦

Proof of Theorem nn0sumshdiglemB
Dummy variable 𝑖 is distinct from all other variables.
StepHypRef Expression
1 elnn1uz2 12906 . . 3 (π‘Ž ∈ β„• ↔ (π‘Ž = 1 ∨ π‘Ž ∈ (β„€β‰₯β€˜2)))
2 1t1e1 12371 . . . . . . . . 9 (1 Β· 1) = 1
32eqcomi 2742 . . . . . . . 8 1 = (1 Β· 1)
4 simpl 484 . . . . . . . 8 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ π‘Ž = 1)
5 oveq2 7414 . . . . . . . . . . . 12 ((𝑦 + 1) = (#bβ€˜π‘Ž) β†’ (0..^(𝑦 + 1)) = (0..^(#bβ€˜π‘Ž)))
65eqcoms 2741 . . . . . . . . . . 11 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ (0..^(𝑦 + 1)) = (0..^(#bβ€˜π‘Ž)))
7 fveq2 6889 . . . . . . . . . . . . . 14 (π‘Ž = 1 β†’ (#bβ€˜π‘Ž) = (#bβ€˜1))
8 blen1 47224 . . . . . . . . . . . . . 14 (#bβ€˜1) = 1
97, 8eqtrdi 2789 . . . . . . . . . . . . 13 (π‘Ž = 1 β†’ (#bβ€˜π‘Ž) = 1)
109oveq2d 7422 . . . . . . . . . . . 12 (π‘Ž = 1 β†’ (0..^(#bβ€˜π‘Ž)) = (0..^1))
11 fzo01 13711 . . . . . . . . . . . 12 (0..^1) = {0}
1210, 11eqtrdi 2789 . . . . . . . . . . 11 (π‘Ž = 1 β†’ (0..^(#bβ€˜π‘Ž)) = {0})
136, 12sylan9eqr 2795 . . . . . . . . . 10 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ (0..^(𝑦 + 1)) = {0})
1413sumeq1d 15644 . . . . . . . . 9 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
15 oveq2 7414 . . . . . . . . . . . . 13 (π‘Ž = 1 β†’ (π‘˜(digitβ€˜2)π‘Ž) = (π‘˜(digitβ€˜2)1))
1615oveq1d 7421 . . . . . . . . . . . 12 (π‘Ž = 1 β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = ((π‘˜(digitβ€˜2)1) Β· (2β†‘π‘˜)))
1716sumeq2sdv 15647 . . . . . . . . . . 11 (π‘Ž = 1 β†’ Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)1) Β· (2β†‘π‘˜)))
18 c0ex 11205 . . . . . . . . . . . 12 0 ∈ V
19 ax-1cn 11165 . . . . . . . . . . . . 13 1 ∈ β„‚
2019, 19mulcli 11218 . . . . . . . . . . . 12 (1 Β· 1) ∈ β„‚
21 oveq1 7413 . . . . . . . . . . . . . . 15 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)1) = (0(digitβ€˜2)1))
22 1ex 11207 . . . . . . . . . . . . . . . . 17 1 ∈ V
2322prid2 4767 . . . . . . . . . . . . . . . 16 1 ∈ {0, 1}
24 0dig2pr01 47250 . . . . . . . . . . . . . . . 16 (1 ∈ {0, 1} β†’ (0(digitβ€˜2)1) = 1)
2523, 24ax-mp 5 . . . . . . . . . . . . . . 15 (0(digitβ€˜2)1) = 1
2621, 25eqtrdi 2789 . . . . . . . . . . . . . 14 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)1) = 1)
27 oveq2 7414 . . . . . . . . . . . . . . 15 (π‘˜ = 0 β†’ (2β†‘π‘˜) = (2↑0))
28 2cn 12284 . . . . . . . . . . . . . . . 16 2 ∈ β„‚
29 exp0 14028 . . . . . . . . . . . . . . . 16 (2 ∈ β„‚ β†’ (2↑0) = 1)
3028, 29ax-mp 5 . . . . . . . . . . . . . . 15 (2↑0) = 1
3127, 30eqtrdi 2789 . . . . . . . . . . . . . 14 (π‘˜ = 0 β†’ (2β†‘π‘˜) = 1)
3226, 31oveq12d 7424 . . . . . . . . . . . . 13 (π‘˜ = 0 β†’ ((π‘˜(digitβ€˜2)1) Β· (2β†‘π‘˜)) = (1 Β· 1))
3332sumsn 15689 . . . . . . . . . . . 12 ((0 ∈ V ∧ (1 Β· 1) ∈ β„‚) β†’ Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)1) Β· (2β†‘π‘˜)) = (1 Β· 1))
3418, 20, 33mp2an 691 . . . . . . . . . . 11 Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)1) Β· (2β†‘π‘˜)) = (1 Β· 1)
3517, 34eqtrdi 2789 . . . . . . . . . 10 (π‘Ž = 1 β†’ Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 Β· 1))
3635adantr 482 . . . . . . . . 9 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 Β· 1))
3714, 36eqtrd 2773 . . . . . . . 8 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 Β· 1))
383, 4, 373eqtr4a 2799 . . . . . . 7 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
3938ex 414 . . . . . 6 (π‘Ž = 1 β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))
4039a1d 25 . . . . 5 (π‘Ž = 1 β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
41402a1d 26 . . . 4 (π‘Ž = 1 β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
42 eluzge2nn0 12868 . . . . . . . . 9 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ π‘Ž ∈ β„•0)
43 nn0ob 16324 . . . . . . . . . 10 (π‘Ž ∈ β„•0 β†’ (((π‘Ž + 1) / 2) ∈ β„•0 ↔ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0))
4443bicomd 222 . . . . . . . . 9 (π‘Ž ∈ β„•0 β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ↔ ((π‘Ž + 1) / 2) ∈ β„•0))
4542, 44syl 17 . . . . . . . 8 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ↔ ((π‘Ž + 1) / 2) ∈ β„•0))
46 blennngt2o2 47232 . . . . . . . . 9 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž + 1) / 2) ∈ β„•0) β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1))
4746ex 414 . . . . . . . 8 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž + 1) / 2) ∈ β„•0 β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1)))
4845, 47sylbid 239 . . . . . . 7 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1)))
4948imp 408 . . . . . 6 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1))
50 fveqeq2 6898 . . . . . . . . . . . . 13 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ ((#bβ€˜π‘₯) = 𝑦 ↔ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦))
51 id 22 . . . . . . . . . . . . . 14 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ π‘₯ = ((π‘Ž βˆ’ 1) / 2))
52 oveq2 7414 . . . . . . . . . . . . . . . 16 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ (π‘˜(digitβ€˜2)π‘₯) = (π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
5352oveq1d 7421 . . . . . . . . . . . . . . 15 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ ((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) = ((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)))
5453sumeq2sdv 15647 . . . . . . . . . . . . . 14 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)))
5551, 54eqeq12d 2749 . . . . . . . . . . . . 13 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ (π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) ↔ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))))
5650, 55imbi12d 345 . . . . . . . . . . . 12 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ (((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) ↔ ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)))))
5756rspcva 3611 . . . . . . . . . . 11 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)))) β†’ ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))))
58 eqeq1 2737 . . . . . . . . . . . . . . . 16 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) ↔ (𝑦 + 1) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1)))
59 nncn 12217 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„‚)
6059ad2antll 728 . . . . . . . . . . . . . . . . . . . 20 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ 𝑦 ∈ β„‚)
61 blennn0elnn 47217 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„•)
6261nncnd 12225 . . . . . . . . . . . . . . . . . . . . . 22 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
6362adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
6463ad2antrl 727 . . . . . . . . . . . . . . . . . . . 20 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
65 1cnd 11206 . . . . . . . . . . . . . . . . . . . 20 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ 1 ∈ β„‚)
6660, 64, 65addcan2d 11415 . . . . . . . . . . . . . . . . . . 19 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ ((𝑦 + 1) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) ↔ 𝑦 = (#bβ€˜((π‘Ž βˆ’ 1) / 2))))
67 eqcom 2740 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ↔ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦)
68 nnz 12576 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„€)
6968ad2antll 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ 𝑦 ∈ β„€)
70 fzval3 13698 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ β„€ β†’ (0...𝑦) = (0..^(𝑦 + 1)))
7169, 70syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (0...𝑦) = (0..^(𝑦 + 1)))
7271eqcomd 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (0..^(𝑦 + 1)) = (0...𝑦))
7372sumeq1d 15644 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ (0...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
74 nnnn0 12476 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„•0)
75 elnn0uz 12864 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ β„•0 ↔ 𝑦 ∈ (β„€β‰₯β€˜0))
7674, 75sylib 217 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ β„• β†’ 𝑦 ∈ (β„€β‰₯β€˜0))
7776ad2antll 728 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ 𝑦 ∈ (β„€β‰₯β€˜0))
78 2nn 12282 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 2 ∈ β„•
7978a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ 2 ∈ β„•)
80 elfzelz 13498 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (π‘˜ ∈ (0...𝑦) β†’ π‘˜ ∈ β„€)
8180adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ π‘˜ ∈ β„€)
82 nn0rp0 13429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (π‘Ž ∈ β„•0 β†’ π‘Ž ∈ (0[,)+∞))
8342, 82syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ π‘Ž ∈ (0[,)+∞))
8483adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ π‘Ž ∈ (0[,)+∞))
8584adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
86 digvalnn0 47239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((2 ∈ β„• ∧ π‘˜ ∈ β„€ ∧ π‘Ž ∈ (0[,)+∞)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
8779, 81, 85, 86syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
8887ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (π‘˜ ∈ (0...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
8988ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (π‘˜ ∈ (0...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
9089imp 408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ (0...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
9190nn0cnd 12531 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ (0...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„‚)
92 2nn0 12486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 2 ∈ β„•0
9392a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘˜ ∈ (0...𝑦) β†’ 2 ∈ β„•0)
94 elfznn0 13591 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘˜ ∈ (0...𝑦) β†’ π‘˜ ∈ β„•0)
9593, 94nn0expcld 14206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘˜ ∈ (0...𝑦) β†’ (2β†‘π‘˜) ∈ β„•0)
9695nn0cnd 12531 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ ∈ (0...𝑦) β†’ (2β†‘π‘˜) ∈ β„‚)
9796adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ (0...𝑦)) β†’ (2β†‘π‘˜) ∈ β„‚)
9891, 97mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ (0...𝑦)) β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) ∈ β„‚)
99 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)π‘Ž) = (0(digitβ€˜2)π‘Ž))
10099, 27oveq12d 7424 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘˜ = 0 β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = ((0(digitβ€˜2)π‘Ž) Β· (2↑0)))
10130oveq2i 7417 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((0(digitβ€˜2)π‘Ž) Β· (2↑0)) = ((0(digitβ€˜2)π‘Ž) Β· 1)
102100, 101eqtrdi 2789 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘˜ = 0 β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = ((0(digitβ€˜2)π‘Ž) Β· 1))
10377, 98, 102fsum1p 15696 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Ξ£π‘˜ ∈ (0...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (((0(digitβ€˜2)π‘Ž) Β· 1) + Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))
10442adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ π‘Ž ∈ β„•0)
10542, 43syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž + 1) / 2) ∈ β„•0 ↔ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0))
106105biimparc 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ ((π‘Ž + 1) / 2) ∈ β„•0)
107 0dig2nn0o 47253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((π‘Ž ∈ β„•0 ∧ ((π‘Ž + 1) / 2) ∈ β„•0) β†’ (0(digitβ€˜2)π‘Ž) = 1)
108104, 106, 107syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (0(digitβ€˜2)π‘Ž) = 1)
109108ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (0(digitβ€˜2)π‘Ž) = 1)
110109oveq1d 7421 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = (1 Β· 1))
111110, 2eqtrdi 2789 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = 1)
112 1z 12589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 1 ∈ β„€
113112a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ 1 ∈ β„€)
114 0p1e1 12331 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (0 + 1) = 1
115114, 112eqeltri 2830 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (0 + 1) ∈ β„€
116115a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (0 + 1) ∈ β„€)
11778a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ 2 ∈ β„•)
118 elfzelz 13498 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ π‘˜ ∈ β„€)
119118adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘˜ ∈ β„€)
12042adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘Ž ∈ β„•0)
121120, 82syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
122117, 119, 121, 86syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
123122ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
124123adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
125124ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
126125imp 408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
127126nn0cnd 12531 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„‚)
128 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ 2 ∈ β„‚)
129 elfznn 13527 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘˜ ∈ (1...𝑦) β†’ π‘˜ ∈ β„•)
130129nnnn0d 12529 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘˜ ∈ (1...𝑦) β†’ π‘˜ ∈ β„•0)
131114oveq1i 7416 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((0 + 1)...𝑦) = (1...𝑦)
132130, 131eleq2s 2852 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ π‘˜ ∈ β„•0)
133128, 132expcld 14108 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (2β†‘π‘˜) ∈ β„‚)
134133adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (2β†‘π‘˜) ∈ β„‚)
135127, 134mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) ∈ β„‚)
136 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ = (𝑖 + 1) β†’ (π‘˜(digitβ€˜2)π‘Ž) = ((𝑖 + 1)(digitβ€˜2)π‘Ž))
137 oveq2 7414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ = (𝑖 + 1) β†’ (2β†‘π‘˜) = (2↑(𝑖 + 1)))
138136, 137oveq12d 7424 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘˜ = (𝑖 + 1) β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
139113, 116, 69, 135, 138fsumshftm 15724 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
140111, 139oveq12d 7424 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (((0(digitβ€˜2)π‘Ž) Β· 1) + Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))) = (1 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))))
14173, 103, 1403eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))))
142141adantl 483 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))))
14378a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 2 ∈ β„•)
144 elfzoelz 13629 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑖 ∈ (0..^𝑦) β†’ 𝑖 ∈ β„€)
145144adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 𝑖 ∈ β„€)
146 nn0rp0 13429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞))
147146adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞))
148147adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞))
149 digvalnn0 47239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((2 ∈ β„• ∧ 𝑖 ∈ β„€ ∧ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„•0)
150143, 145, 148, 149syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„•0)
151150nn0cnd 12531 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
152151ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (𝑖 ∈ (0..^𝑦) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚))
153152ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (𝑖 ∈ (0..^𝑦) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚))
154153imp 408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
15592a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑖 ∈ (0..^𝑦) β†’ 2 ∈ β„•0)
156 elfzonn0 13674 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑖 ∈ (0..^𝑦) β†’ 𝑖 ∈ β„•0)
157155, 156nn0expcld 14206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑖 ∈ (0..^𝑦) β†’ (2↑𝑖) ∈ β„•0)
158157nn0cnd 12531 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑖 ∈ (0..^𝑦) β†’ (2↑𝑖) ∈ β„‚)
159158adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑𝑖) ∈ β„‚)
160 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 2 ∈ β„‚)
161154, 159, 160mulassd 11234 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2) = ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)))
162161eqcomd 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)) = (((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2))
163162sumeq2dv 15646 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)) = Σ𝑖 ∈ (0..^𝑦)(((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2))
164163adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)) = Σ𝑖 ∈ (0..^𝑦)(((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2))
165 0cn 11203 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 0 ∈ β„‚
166 pncan1 11635 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (0 ∈ β„‚ β†’ ((0 + 1) βˆ’ 1) = 0)
167165, 166ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((0 + 1) βˆ’ 1) = 0
168167a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ β„• β†’ ((0 + 1) βˆ’ 1) = 0)
169168oveq1d 7421 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ β„• β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0...(𝑦 βˆ’ 1)))
170 fzoval 13630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ β„€ β†’ (0..^𝑦) = (0...(𝑦 βˆ’ 1)))
17168, 170syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ β„• β†’ (0..^𝑦) = (0...(𝑦 βˆ’ 1)))
172169, 171eqtr4d 2776 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ β„• β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0..^𝑦))
173172ad2antll 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0..^𝑦))
174 simprlr 779 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ π‘Ž ∈ (β„€β‰₯β€˜2))
175 elfznn0 13591 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑖 ∈ (0...(𝑦 βˆ’ 1)) β†’ 𝑖 ∈ β„•0)
176167oveq1i 7416 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0...(𝑦 βˆ’ 1))
177175, 176eleq2s 2852 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) β†’ 𝑖 ∈ β„•0)
178 dignn0flhalf 47258 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ 𝑖 ∈ β„•0) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)(βŒŠβ€˜(π‘Ž / 2))))
179174, 177, 178syl2an 597 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)(βŒŠβ€˜(π‘Ž / 2))))
180 eluzelz 12829 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ π‘Ž ∈ β„€)
181180adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ π‘Ž ∈ β„€)
182 nn0z 12580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((π‘Ž βˆ’ 1) / 2) ∈ β„€)
183 zob 16299 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (π‘Ž ∈ β„€ β†’ (((π‘Ž + 1) / 2) ∈ β„€ ↔ ((π‘Ž βˆ’ 1) / 2) ∈ β„€))
184180, 183syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž + 1) / 2) ∈ β„€ ↔ ((π‘Ž βˆ’ 1) / 2) ∈ β„€))
185182, 184imbitrrid 245 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((π‘Ž + 1) / 2) ∈ β„€))
186185imp 408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ ((π‘Ž + 1) / 2) ∈ β„€)
187181, 186jca 513 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
188187ancoms 460 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
189188ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
190189adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
191 zofldiv2 47171 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€) β†’ (βŒŠβ€˜(π‘Ž / 2)) = ((π‘Ž βˆ’ 1) / 2))
192190, 191syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (βŒŠβ€˜(π‘Ž / 2)) = ((π‘Ž βˆ’ 1) / 2))
193192oveq2d 7422 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (𝑖(digitβ€˜2)(βŒŠβ€˜(π‘Ž / 2))) = (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
194179, 193eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
195 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) β†’ 2 ∈ β„‚)
196195, 177expp1d 14109 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) β†’ (2↑(𝑖 + 1)) = ((2↑𝑖) Β· 2))
197196adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (2↑(𝑖 + 1)) = ((2↑𝑖) Β· 2))
198194, 197oveq12d 7424 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)))
199173, 198sumeq12dv 15649 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)))
200199adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· ((2↑𝑖) Β· 2)))
201 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘˜ = 𝑖 β†’ (π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) = (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
202 oveq2 7414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘˜ = 𝑖 β†’ (2β†‘π‘˜) = (2↑𝑖))
203201, 202oveq12d 7424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘˜ = 𝑖 β†’ ((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) = ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)))
204203cbvsumv 15639 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖))
205204eqeq2i 2746 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ↔ ((π‘Ž βˆ’ 1) / 2) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)))
206205biimpi 215 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) β†’ ((π‘Ž βˆ’ 1) / 2) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)))
207206adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ ((π‘Ž βˆ’ 1) / 2) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)))
208207oveq1d 7421 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (((π‘Ž βˆ’ 1) / 2) Β· 2) = (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2))
209 fzofi 13936 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (0..^𝑦) ∈ Fin
210209a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (0..^𝑦) ∈ Fin)
211 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ 2 ∈ β„‚)
212158adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑𝑖) ∈ β„‚)
213151, 212mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚)
214213ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (𝑖 ∈ (0..^𝑦) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚))
215214adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ (𝑖 ∈ (0..^𝑦) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚))
216215ad2antll 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (𝑖 ∈ (0..^𝑦) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚))
217216imp 408 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚)
218210, 211, 217fsummulc1 15728 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2) = Σ𝑖 ∈ (0..^𝑦)(((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2))
219208, 218eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (((π‘Ž βˆ’ 1) / 2) Β· 2) = Σ𝑖 ∈ (0..^𝑦)(((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) Β· 2))
220164, 200, 2193eqtr4d 2783 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = (((π‘Ž βˆ’ 1) / 2) Β· 2))
221220oveq2d 7422 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (1 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))) = (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)))
222 eluzelcn 12831 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ π‘Ž ∈ β„‚)
223 peano2cnm 11523 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘Ž ∈ β„‚ β†’ (π‘Ž βˆ’ 1) ∈ β„‚)
224222, 223syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (π‘Ž βˆ’ 1) ∈ β„‚)
225 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ 2 ∈ β„‚)
226 2ne0 12313 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 2 β‰  0
227226a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ 2 β‰  0)
228224, 225, 2273jca 1129 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((π‘Ž βˆ’ 1) ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0))
229228adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ ((π‘Ž βˆ’ 1) ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0))
230 divcan1 11878 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((π‘Ž βˆ’ 1) ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0) β†’ (((π‘Ž βˆ’ 1) / 2) Β· 2) = (π‘Ž βˆ’ 1))
231229, 230syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (((π‘Ž βˆ’ 1) / 2) Β· 2) = (π‘Ž βˆ’ 1))
232231oveq2d 7422 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = (1 + (π‘Ž βˆ’ 1)))
233 1cnd 11206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ 1 ∈ β„‚)
234233, 222jca 513 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (1 ∈ β„‚ ∧ π‘Ž ∈ β„‚))
235234adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (1 ∈ β„‚ ∧ π‘Ž ∈ β„‚))
236 pncan3 11465 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((1 ∈ β„‚ ∧ π‘Ž ∈ β„‚) β†’ (1 + (π‘Ž βˆ’ 1)) = π‘Ž)
237235, 236syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (1 + (π‘Ž βˆ’ 1)) = π‘Ž)
238232, 237eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = π‘Ž)
239238adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = π‘Ž)
240239ad2antll 728 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = π‘Ž)
241142, 221, 2403eqtrrd 2778 . . . . . . . . . . . . . . . . . . . . . . 23 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
242241ex 414 . . . . . . . . . . . . . . . . . . . . . 22 (((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) β†’ (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))
243242imim2i 16 . . . . . . . . . . . . . . . . . . . . 21 (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
244243com13 88 . . . . . . . . . . . . . . . . . . . 20 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
24567, 244biimtrid 241 . . . . . . . . . . . . . . . . . . 19 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (𝑦 = (#bβ€˜((π‘Ž βˆ’ 1) / 2)) β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
24666, 245sylbid 239 . . . . . . . . . . . . . . . . . 18 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ ((𝑦 + 1) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
247246ex 414 . . . . . . . . . . . . . . . . 17 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ ((𝑦 + 1) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
248247com23 86 . . . . . . . . . . . . . . . 16 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ ((𝑦 + 1) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
24958, 248sylbid 239 . . . . . . . . . . . . . . 15 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
250249com23 86 . . . . . . . . . . . . . 14 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
251250com14 96 . . . . . . . . . . . . 13 (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
252251exp4c 434 . . . . . . . . . . . 12 (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (𝑦 ∈ β„• β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
253252com35 98 . . . . . . . . . . 11 (((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (𝑦 ∈ β„• β†’ (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
25457, 253syl 17 . . . . . . . . . 10 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)))) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (𝑦 ∈ β„• β†’ (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
255254ex 414 . . . . . . . . 9 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (𝑦 ∈ β„• β†’ (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))))
256255pm2.43a 54 . . . . . . . 8 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (𝑦 ∈ β„• β†’ (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
257256com25 99 . . . . . . 7 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
258257impcom 409 . . . . . 6 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
25949, 258mpd 15 . . . . 5 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
260259ex 414 . . . 4 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
26141, 260jaoi 856 . . 3 ((π‘Ž = 1 ∨ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
2621, 261sylbi 216 . 2 (π‘Ž ∈ β„• β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
263262imp31 419 1 (((π‘Ž ∈ β„• ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) ∧ 𝑦 ∈ β„•) β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  Vcvv 3475  {csn 4628  {cpr 4630  β€˜cfv 6541  (class class class)co 7406  Fincfn 8936  β„‚cc 11105  0cc0 11107  1c1 11108   + caddc 11110   Β· cmul 11112  +∞cpnf 11242   βˆ’ cmin 11441   / cdiv 11868  β„•cn 12209  2c2 12264  β„•0cn0 12469  β„€cz 12555  β„€β‰₯cuz 12819  [,)cico 13323  ...cfz 13481  ..^cfzo 13624  βŒŠcfl 13752  β†‘cexp 14024  Ξ£csu 15629  #bcblen 47209  digitcdig 47235
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185  ax-addf 11186  ax-mulf 11187
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-fi 9403  df-sup 9434  df-inf 9435  df-oi 9502  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-mod 13832  df-seq 13964  df-exp 14025  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-ef 16008  df-sin 16010  df-cos 16011  df-pi 16013  df-dvds 16195  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-starv 17209  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-hom 17218  df-cco 17219  df-rest 17365  df-topn 17366  df-0g 17384  df-gsum 17385  df-topgen 17386  df-pt 17387  df-prds 17390  df-xrs 17445  df-qtop 17450  df-imas 17451  df-xps 17453  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-submnd 18669  df-mulg 18946  df-cntz 19176  df-cmn 19645  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-fbas 20934  df-fg 20935  df-cnfld 20938  df-top 22388  df-topon 22405  df-topsp 22427  df-bases 22441  df-cld 22515  df-ntr 22516  df-cls 22517  df-nei 22594  df-lp 22632  df-perf 22633  df-cn 22723  df-cnp 22724  df-haus 22811  df-tx 23058  df-hmeo 23251  df-fil 23342  df-fm 23434  df-flim 23435  df-flf 23436  df-xms 23818  df-ms 23819  df-tms 23820  df-cncf 24386  df-limc 25375  df-dv 25376  df-log 26057  df-cxp 26058  df-logb 26260  df-blen 47210  df-dig 47236
This theorem is referenced by:  nn0sumshdiglem1  47261
  Copyright terms: Public domain W3C validator