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 47494
Description: Lemma for nn0sumshdig 47497 (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 2733 . . . . . . . 8 1 = (1 Β· 1)
4 simpl 482 . . . . . . . 8 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ π‘Ž = 1)
5 oveq2 7409 . . . . . . . . . . . 12 ((𝑦 + 1) = (#bβ€˜π‘Ž) β†’ (0..^(𝑦 + 1)) = (0..^(#bβ€˜π‘Ž)))
65eqcoms 2732 . . . . . . . . . . 11 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ (0..^(𝑦 + 1)) = (0..^(#bβ€˜π‘Ž)))
7 fveq2 6881 . . . . . . . . . . . . . 14 (π‘Ž = 1 β†’ (#bβ€˜π‘Ž) = (#bβ€˜1))
8 blen1 47458 . . . . . . . . . . . . . 14 (#bβ€˜1) = 1
97, 8eqtrdi 2780 . . . . . . . . . . . . 13 (π‘Ž = 1 β†’ (#bβ€˜π‘Ž) = 1)
109oveq2d 7417 . . . . . . . . . . . 12 (π‘Ž = 1 β†’ (0..^(#bβ€˜π‘Ž)) = (0..^1))
11 fzo01 13711 . . . . . . . . . . . 12 (0..^1) = {0}
1210, 11eqtrdi 2780 . . . . . . . . . . 11 (π‘Ž = 1 β†’ (0..^(#bβ€˜π‘Ž)) = {0})
136, 12sylan9eqr 2786 . . . . . . . . . 10 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ (0..^(𝑦 + 1)) = {0})
1413sumeq1d 15644 . . . . . . . . 9 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
15 oveq2 7409 . . . . . . . . . . . . 13 (π‘Ž = 1 β†’ (π‘˜(digitβ€˜2)π‘Ž) = (π‘˜(digitβ€˜2)1))
1615oveq1d 7416 . . . . . . . . . . . 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 11164 . . . . . . . . . . . . 13 1 ∈ β„‚
2019, 19mulcli 11218 . . . . . . . . . . . 12 (1 Β· 1) ∈ β„‚
21 oveq1 7408 . . . . . . . . . . . . . . 15 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)1) = (0(digitβ€˜2)1))
22 1ex 11207 . . . . . . . . . . . . . . . . 17 1 ∈ V
2322prid2 4759 . . . . . . . . . . . . . . . 16 1 ∈ {0, 1}
24 0dig2pr01 47484 . . . . . . . . . . . . . . . 16 (1 ∈ {0, 1} β†’ (0(digitβ€˜2)1) = 1)
2523, 24ax-mp 5 . . . . . . . . . . . . . . 15 (0(digitβ€˜2)1) = 1
2621, 25eqtrdi 2780 . . . . . . . . . . . . . 14 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)1) = 1)
27 oveq2 7409 . . . . . . . . . . . . . . 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 2780 . . . . . . . . . . . . . 14 (π‘˜ = 0 β†’ (2β†‘π‘˜) = 1)
3226, 31oveq12d 7419 . . . . . . . . . . . . 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 689 . . . . . . . . . . 11 Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)1) Β· (2β†‘π‘˜)) = (1 Β· 1)
3517, 34eqtrdi 2780 . . . . . . . . . 10 (π‘Ž = 1 β†’ Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 Β· 1))
3635adantr 480 . . . . . . . . 9 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ Ξ£π‘˜ ∈ {0} ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 Β· 1))
3714, 36eqtrd 2764 . . . . . . . 8 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 Β· 1))
383, 4, 373eqtr4a 2790 . . . . . . 7 ((π‘Ž = 1 ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
3938ex 412 . . . . . 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 47466 . . . . . . . . 9 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž + 1) / 2) ∈ β„•0) β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1))
4746ex 412 . . . . . . . 8 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž + 1) / 2) ∈ β„•0 β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1)))
4845, 47sylbid 239 . . . . . . 7 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1)))
4948imp 406 . . . . . 6 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ (#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1))
50 fveqeq2 6890 . . . . . . . . . . . . 13 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ ((#bβ€˜π‘₯) = 𝑦 ↔ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦))
51 id 22 . . . . . . . . . . . . . 14 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ π‘₯ = ((π‘Ž βˆ’ 1) / 2))
52 oveq2 7409 . . . . . . . . . . . . . . . 16 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ (π‘˜(digitβ€˜2)π‘₯) = (π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
5352oveq1d 7416 . . . . . . . . . . . . . . 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 2740 . . . . . . . . . . . . 13 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ (π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) ↔ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))))
5650, 55imbi12d 344 . . . . . . . . . . . 12 (π‘₯ = ((π‘Ž βˆ’ 1) / 2) β†’ (((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) ↔ ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)))))
5756rspcva 3602 . . . . . . . . . . 11 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)))) β†’ ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦 β†’ ((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜))))
58 eqeq1 2728 . . . . . . . . . . . . . . . 16 ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ ((#bβ€˜π‘Ž) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1) ↔ (𝑦 + 1) = ((#bβ€˜((π‘Ž βˆ’ 1) / 2)) + 1)))
59 nncn 12217 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„‚)
6059ad2antll 726 . . . . . . . . . . . . . . . . . . . 20 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ 𝑦 ∈ β„‚)
61 blennn0elnn 47451 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„•)
6261nncnd 12225 . . . . . . . . . . . . . . . . . . . . . 22 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
6362adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
6463ad2antrl 725 . . . . . . . . . . . . . . . . . . . 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 2731 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (#bβ€˜((π‘Ž βˆ’ 1) / 2)) ↔ (#bβ€˜((π‘Ž βˆ’ 1) / 2)) = 𝑦)
68 nnz 12576 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„€)
6968ad2antll 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2730 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 726 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ π‘˜ ∈ β„€)
82 nn0rp0 13429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (π‘Ž ∈ β„•0 β†’ π‘Ž ∈ (0[,)+∞))
8342, 82syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ π‘Ž ∈ (0[,)+∞))
8483adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ π‘Ž ∈ (0[,)+∞))
8584adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
86 digvalnn0 47473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((2 ∈ β„• ∧ π‘˜ ∈ β„€ ∧ π‘Ž ∈ (0[,)+∞)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
8779, 81, 85, 86syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ π‘˜ ∈ (0...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
8887ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (π‘˜ ∈ (0...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
8988ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (π‘˜ ∈ (0...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
9089imp 406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)π‘Ž) = (0(digitβ€˜2)π‘Ž))
10099, 27oveq12d 7419 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘˜ = 0 β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = ((0(digitβ€˜2)π‘Ž) Β· (2↑0)))
10130oveq2i 7412 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((0(digitβ€˜2)π‘Ž) Β· (2↑0)) = ((0(digitβ€˜2)π‘Ž) Β· 1)
102100, 101eqtrdi 2780 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ π‘Ž ∈ β„•0)
10542, 43syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž + 1) / 2) ∈ β„•0 ↔ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0))
106105biimparc 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ ((π‘Ž + 1) / 2) ∈ β„•0)
107 0dig2nn0o 47487 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((π‘Ž ∈ β„•0 ∧ ((π‘Ž + 1) / 2) ∈ β„•0) β†’ (0(digitβ€˜2)π‘Ž) = 1)
108104, 106, 107syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (0(digitβ€˜2)π‘Ž) = 1)
109108ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (0(digitβ€˜2)π‘Ž) = 1)
110109oveq1d 7416 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = (1 Β· 1))
111110, 2eqtrdi 2780 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2821 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘˜ ∈ β„€)
12042adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘Ž ∈ β„•0)
121120, 82syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
122117, 119, 121, 86syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
123122ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
124123adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
125124ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0))
126125imp 406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7411 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((0 + 1)...𝑦) = (1...𝑦)
132130, 131eleq2s 2843 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ π‘˜ ∈ β„•0)
133128, 132expcld 14108 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (2β†‘π‘˜) ∈ β„‚)
134133adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ = (𝑖 + 1) β†’ (π‘˜(digitβ€˜2)π‘Ž) = ((𝑖 + 1)(digitβ€˜2)π‘Ž))
137 oveq2 7409 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘˜ = (𝑖 + 1) β†’ (2β†‘π‘˜) = (2↑(𝑖 + 1)))
138136, 137oveq12d 7419 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7419 . . . . . . . . . . . . . . . . . . . . . . . . . 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 2768 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (1 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))))
142141adantl 481 . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 𝑖 ∈ β„€)
146 nn0rp0 13429 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞))
147146adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞))
148147adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞))
149 digvalnn0 47473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((2 ∈ β„• ∧ 𝑖 ∈ β„€ ∧ ((π‘Ž βˆ’ 1) / 2) ∈ (0[,)+∞)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„•0)
150143, 145, 148, 149syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„•0)
151150nn0cnd 12531 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚)
152151ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (𝑖 ∈ (0..^𝑦) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚))
153152ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (𝑖 ∈ (0..^𝑦) β†’ (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) ∈ β„‚))
154153imp 406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2730 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . 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 7416 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ β„• β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0...(𝑦 βˆ’ 1)))
170 fzoval 13630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ β„€ β†’ (0..^𝑦) = (0...(𝑦 βˆ’ 1)))
17168, 170syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ β„• β†’ (0..^𝑦) = (0...(𝑦 βˆ’ 1)))
172169, 171eqtr4d 2767 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ β„• β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0..^𝑦))
173172ad2antll 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0..^𝑦))
174 simprlr 777 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ π‘Ž ∈ (β„€β‰₯β€˜2))
175 elfznn0 13591 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑖 ∈ (0...(𝑦 βˆ’ 1)) β†’ 𝑖 ∈ β„•0)
176167oveq1i 7411 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0...(𝑦 βˆ’ 1))
177175, 176eleq2s 2843 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) β†’ 𝑖 ∈ β„•0)
178 dignn0flhalf 47492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ 𝑖 ∈ β„•0) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)(βŒŠβ€˜(π‘Ž / 2))))
179174, 177, 178syl2an 595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)(βŒŠβ€˜(π‘Ž / 2))))
180 eluzelz 12829 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ π‘Ž ∈ β„€)
181180adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 406 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ ((π‘Ž + 1) / 2) ∈ β„€)
187181, 186jca 511 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((π‘Ž ∈ (β„€β‰₯β€˜2) ∧ ((π‘Ž βˆ’ 1) / 2) ∈ β„•0) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
188187ancoms 458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
189188ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
190189adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€))
191 zofldiv2 47405 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((π‘Ž ∈ β„€ ∧ ((π‘Ž + 1) / 2) ∈ β„€) β†’ (βŒŠβ€˜(π‘Ž / 2)) = ((π‘Ž βˆ’ 1) / 2))
192190, 191syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (βŒŠβ€˜(π‘Ž / 2)) = ((π‘Ž βˆ’ 1) / 2))
193192oveq2d 7417 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (𝑖(digitβ€˜2)(βŒŠβ€˜(π‘Ž / 2))) = (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
194179, 193eqtrd 2764 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•)) ∧ 𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))) β†’ (2↑(𝑖 + 1)) = ((2↑𝑖) Β· 2))
198194, 197oveq12d 7419 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . 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 7408 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘˜ = 𝑖 β†’ (π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) = (𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)))
202 oveq2 7409 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘˜ = 𝑖 β†’ (2β†‘π‘˜) = (2↑𝑖))
203201, 202oveq12d 7419 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2737 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ ((π‘Ž βˆ’ 1) / 2) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)))
208207oveq1d 7416 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑𝑖) ∈ β„‚)
213151, 212mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚)
214213ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (𝑖 ∈ (0..^𝑦) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚))
215214adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ (𝑖 ∈ (0..^𝑦) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚))
216215ad2antll 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (𝑖 ∈ (0..^𝑦) β†’ ((𝑖(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2↑𝑖)) ∈ β„‚))
217216imp 406 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2764 . . . . . . . . . . . . . . . . . . . . . . . . . 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 2774 . . . . . . . . . . . . . . . . . . . . . . . . 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 7417 . . . . . . . . . . . . . . . . . . . . . . . 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 1125 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ ((π‘Ž βˆ’ 1) ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0))
229228adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 7417 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = (1 + (π‘Ž βˆ’ 1)))
233 1cnd 11206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ 1 ∈ β„‚)
234233, 222jca 511 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (1 ∈ β„‚ ∧ π‘Ž ∈ β„‚))
235234adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2764 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = π‘Ž)
239238adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = π‘Ž)
240239ad2antll 726 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ (1 + (((π‘Ž βˆ’ 1) / 2) Β· 2)) = π‘Ž)
241142, 221, 2403eqtrrd 2769 . . . . . . . . . . . . . . . . . . . . . . 23 ((((π‘Ž βˆ’ 1) / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)((π‘Ž βˆ’ 1) / 2)) Β· (2β†‘π‘˜)) ∧ ((#bβ€˜π‘Ž) = (𝑦 + 1) ∧ ((((π‘Ž βˆ’ 1) / 2) ∈ β„•0 ∧ π‘Ž ∈ (β„€β‰₯β€˜2)) ∧ 𝑦 ∈ β„•))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
242241ex 412 . . . . . . . . . . . . . . . . . . . . . 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 412 . . . . . . . . . . . . . . . . 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 432 . . . . . . . . . . . 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 412 . . . . . . . . 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 407 . . . . . 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 412 . . . 4 (π‘Ž ∈ (β„€β‰₯β€˜2) β†’ (((π‘Ž βˆ’ 1) / 2) ∈ β„•0 β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
26141, 260jaoi 854 . . 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 417 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 395   ∨ wo 844   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098   β‰  wne 2932  βˆ€wral 3053  Vcvv 3466  {csn 4620  {cpr 4622  β€˜cfv 6533  (class class class)co 7401  Fincfn 8935  β„‚cc 11104  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  +∞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 47443  digitcdig 47469
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-tp 4625  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-iin 4990  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-se 5622  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-of 7663  df-om 7849  df-1st 7968  df-2nd 7969  df-supp 8141  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  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 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-submnd 18704  df-mulg 18986  df-cntz 19223  df-cmn 19692  df-psmet 21220  df-xmet 21221  df-met 21222  df-bl 21223  df-mopn 21224  df-fbas 21225  df-fg 21226  df-cnfld 21229  df-top 22718  df-topon 22735  df-topsp 22757  df-bases 22771  df-cld 22845  df-ntr 22846  df-cls 22847  df-nei 22924  df-lp 22962  df-perf 22963  df-cn 23053  df-cnp 23054  df-haus 23141  df-tx 23388  df-hmeo 23581  df-fil 23672  df-fm 23764  df-flim 23765  df-flf 23766  df-xms 24148  df-ms 24149  df-tms 24150  df-cncf 24720  df-limc 25717  df-dv 25718  df-log 26407  df-cxp 26408  df-logb 26613  df-blen 47444  df-dig 47470
This theorem is referenced by:  nn0sumshdiglem1  47495
  Copyright terms: Public domain W3C validator