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

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

Proof of Theorem nn0sumshdiglemA
Dummy variable 𝑖 is distinct from all other variables.
StepHypRef Expression
1 nnnn0 12484 . . . 4 ((π‘Ž / 2) ∈ β„• β†’ (π‘Ž / 2) ∈ β„•0)
2 blennn0em1 47365 . . . 4 ((π‘Ž ∈ β„• ∧ (π‘Ž / 2) ∈ β„•0) β†’ (#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1))
31, 2sylan2 592 . . 3 ((π‘Ž ∈ β„• ∧ (π‘Ž / 2) ∈ β„•) β†’ (#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1))
4 fveqeq2 6900 . . . . . . . . . . 11 (π‘₯ = (π‘Ž / 2) β†’ ((#bβ€˜π‘₯) = 𝑦 ↔ (#bβ€˜(π‘Ž / 2)) = 𝑦))
5 id 22 . . . . . . . . . . . 12 (π‘₯ = (π‘Ž / 2) β†’ π‘₯ = (π‘Ž / 2))
6 oveq2 7420 . . . . . . . . . . . . . . 15 (π‘₯ = (π‘Ž / 2) β†’ (π‘˜(digitβ€˜2)π‘₯) = (π‘˜(digitβ€˜2)(π‘Ž / 2)))
76oveq1d 7427 . . . . . . . . . . . . . 14 (π‘₯ = (π‘Ž / 2) β†’ ((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) = ((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)))
87adantr 480 . . . . . . . . . . . . 13 ((π‘₯ = (π‘Ž / 2) ∧ π‘˜ ∈ (0..^𝑦)) β†’ ((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) = ((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)))
98sumeq2dv 15654 . . . . . . . . . . . 12 (π‘₯ = (π‘Ž / 2) β†’ Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)))
105, 9eqeq12d 2747 . . . . . . . . . . 11 (π‘₯ = (π‘Ž / 2) β†’ (π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)) ↔ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))))
114, 10imbi12d 344 . . . . . . . . . 10 (π‘₯ = (π‘Ž / 2) β†’ (((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) ↔ ((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)))))
1211rspcva 3610 . . . . . . . . 9 (((π‘Ž / 2) ∈ β„•0 ∧ βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)))) β†’ ((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))))
13 simpr 484 . . . . . . . . . . . . . . . . 17 ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ (#bβ€˜π‘Ž) = (𝑦 + 1))
1413oveq1d 7427 . . . . . . . . . . . . . . . 16 ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ ((#bβ€˜π‘Ž) βˆ’ 1) = ((𝑦 + 1) βˆ’ 1))
15 nncn 12225 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„‚)
16 pncan1 11643 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ β„‚ β†’ ((𝑦 + 1) βˆ’ 1) = 𝑦)
1715, 16syl 17 . . . . . . . . . . . . . . . 16 (𝑦 ∈ β„• β†’ ((𝑦 + 1) βˆ’ 1) = 𝑦)
1814, 17sylan9eq 2791 . . . . . . . . . . . . . . 15 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((#bβ€˜π‘Ž) βˆ’ 1) = 𝑦)
1918eqeq2d 2742 . . . . . . . . . . . . . 14 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) ↔ (#bβ€˜(π‘Ž / 2)) = 𝑦))
20 nnz 12584 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„€)
2120adantl 481 . . . . . . . . . . . . . . . . . . . . . . 23 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ 𝑦 ∈ β„€)
22 fzval3 13706 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ β„€ β†’ (0...𝑦) = (0..^(𝑦 + 1)))
2321, 22syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0...𝑦) = (0..^(𝑦 + 1)))
2423eqcomd 2737 . . . . . . . . . . . . . . . . . . . . 21 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0..^(𝑦 + 1)) = (0...𝑦))
2524sumeq1d 15652 . . . . . . . . . . . . . . . . . . . 20 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Ξ£π‘˜ ∈ (0...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
26 nnnn0 12484 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ β„• β†’ 𝑦 ∈ β„•0)
27 elnn0uz 12872 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ β„•0 ↔ 𝑦 ∈ (β„€β‰₯β€˜0))
2826, 27sylib 217 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ β„• β†’ 𝑦 ∈ (β„€β‰₯β€˜0))
2928adantl 481 . . . . . . . . . . . . . . . . . . . . 21 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ 𝑦 ∈ (β„€β‰₯β€˜0))
30 2nn 12290 . . . . . . . . . . . . . . . . . . . . . . . . 25 2 ∈ β„•
3130a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ 2 ∈ β„•)
32 elfzelz 13506 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ ∈ (0...𝑦) β†’ π‘˜ ∈ β„€)
3332adantl 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ π‘˜ ∈ β„€)
34 nnnn0 12484 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘Ž ∈ β„• β†’ π‘Ž ∈ β„•0)
35 nn0rp0 13437 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘Ž ∈ β„•0 β†’ π‘Ž ∈ (0[,)+∞))
3634, 35syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘Ž ∈ β„• β†’ π‘Ž ∈ (0[,)+∞))
3736ad4antlr 730 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
38 digvalnn0 47373 . . . . . . . . . . . . . . . . . . . . . . . 24 ((2 ∈ β„• ∧ π‘˜ ∈ β„€ ∧ π‘Ž ∈ (0[,)+∞)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
3931, 33, 37, 38syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
4039nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . 22 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„‚)
41 2nn0 12494 . . . . . . . . . . . . . . . . . . . . . . . . . 26 2 ∈ β„•0
4241a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ ∈ (0...𝑦) β†’ 2 ∈ β„•0)
43 elfznn0 13599 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ ∈ (0...𝑦) β†’ π‘˜ ∈ β„•0)
4442, 43nn0expcld 14214 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ ∈ (0...𝑦) β†’ (2β†‘π‘˜) ∈ β„•0)
4544nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ ∈ (0...𝑦) β†’ (2β†‘π‘˜) ∈ β„‚)
4645adantl 481 . . . . . . . . . . . . . . . . . . . . . 22 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ (2β†‘π‘˜) ∈ β„‚)
4740, 46mulcld 11239 . . . . . . . . . . . . . . . . . . . . 21 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ (0...𝑦)) β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) ∈ β„‚)
48 oveq1 7419 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ = 0 β†’ (π‘˜(digitβ€˜2)π‘Ž) = (0(digitβ€˜2)π‘Ž))
49 oveq2 7420 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ = 0 β†’ (2β†‘π‘˜) = (2↑0))
5048, 49oveq12d 7430 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ = 0 β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = ((0(digitβ€˜2)π‘Ž) Β· (2↑0)))
51 2cn 12292 . . . . . . . . . . . . . . . . . . . . . . . 24 2 ∈ β„‚
52 exp0 14036 . . . . . . . . . . . . . . . . . . . . . . . 24 (2 ∈ β„‚ β†’ (2↑0) = 1)
5351, 52ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23 (2↑0) = 1
5453oveq2i 7423 . . . . . . . . . . . . . . . . . . . . . 22 ((0(digitβ€˜2)π‘Ž) Β· (2↑0)) = ((0(digitβ€˜2)π‘Ž) Β· 1)
5550, 54eqtrdi 2787 . . . . . . . . . . . . . . . . . . . . 21 (π‘˜ = 0 β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = ((0(digitβ€˜2)π‘Ž) Β· 1))
5629, 47, 55fsum1p 15704 . . . . . . . . . . . . . . . . . . . 20 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Ξ£π‘˜ ∈ (0...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (((0(digitβ€˜2)π‘Ž) Β· 1) + Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))
57 0dig2nn0e 47386 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘Ž ∈ β„•0 ∧ (π‘Ž / 2) ∈ β„•0) β†’ (0(digitβ€˜2)π‘Ž) = 0)
5834, 1, 57syl2anr 596 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ (0(digitβ€˜2)π‘Ž) = 0)
5958oveq1d 7427 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = (0 Β· 1))
60 1re 11219 . . . . . . . . . . . . . . . . . . . . . . . . . 26 1 ∈ ℝ
61 mul02lem2 11396 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (1 ∈ ℝ β†’ (0 Β· 1) = 0)
6260, 61ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 (0 Β· 1) = 0
6359, 62eqtrdi 2787 . . . . . . . . . . . . . . . . . . . . . . . 24 (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = 0)
6463adantr 480 . . . . . . . . . . . . . . . . . . . . . . 23 ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = 0)
6564adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((0(digitβ€˜2)π‘Ž) Β· 1) = 0)
66 1z 12597 . . . . . . . . . . . . . . . . . . . . . . . 24 1 ∈ β„€
6766a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ 1 ∈ β„€)
68 0p1e1 12339 . . . . . . . . . . . . . . . . . . . . . . . . 25 (0 + 1) = 1
6968, 66eqeltri 2828 . . . . . . . . . . . . . . . . . . . . . . . 24 (0 + 1) ∈ β„€
7069a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0 + 1) ∈ β„€)
7130a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ 2 ∈ β„•)
72 elfzelz 13506 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ π‘˜ ∈ β„€)
7372adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘˜ ∈ β„€)
7436ad4antlr 730 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
7571, 73, 74, 38syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„•0)
7675nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (π‘˜(digitβ€˜2)π‘Ž) ∈ β„‚)
77 2cnd 12295 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ 2 ∈ β„‚)
78 elfznn 13535 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘˜ ∈ (1...𝑦) β†’ π‘˜ ∈ β„•)
7978nnnn0d 12537 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘˜ ∈ (1...𝑦) β†’ π‘˜ ∈ β„•0)
8068oveq1i 7422 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((0 + 1)...𝑦) = (1...𝑦)
8179, 80eleq2s 2850 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ π‘˜ ∈ β„•0)
8277, 81expcld 14116 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ ∈ ((0 + 1)...𝑦) β†’ (2β†‘π‘˜) ∈ β„‚)
8382adantl 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ (2β†‘π‘˜) ∈ β„‚)
8476, 83mulcld 11239 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ π‘˜ ∈ ((0 + 1)...𝑦)) β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) ∈ β„‚)
85 oveq1 7419 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ = (𝑖 + 1) β†’ (π‘˜(digitβ€˜2)π‘Ž) = ((𝑖 + 1)(digitβ€˜2)π‘Ž))
86 oveq2 7420 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ = (𝑖 + 1) β†’ (2β†‘π‘˜) = (2↑(𝑖 + 1)))
8785, 86oveq12d 7430 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ = (𝑖 + 1) β†’ ((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
8867, 70, 21, 84, 87fsumshftm 15732 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
8965, 88oveq12d 7430 . . . . . . . . . . . . . . . . . . . . 21 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (((0(digitβ€˜2)π‘Ž) Β· 1) + Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))) = (0 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))))
901ad4antr 729 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (π‘Ž / 2) ∈ β„•0)
9134ad4antlr 730 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ π‘Ž ∈ β„•0)
92 elfzonn0 13682 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑖 ∈ (0..^𝑦) β†’ 𝑖 ∈ β„•0)
9392adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 𝑖 ∈ β„•0)
94 dignn0ehalf 47391 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘Ž / 2) ∈ β„•0 ∧ π‘Ž ∈ β„•0 ∧ 𝑖 ∈ β„•0) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)(π‘Ž / 2)))
9590, 91, 93, 94syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) = (𝑖(digitβ€˜2)(π‘Ž / 2)))
96 2cnd 12295 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑖 ∈ (0..^𝑦) β†’ 2 ∈ β„‚)
9796, 92expp1d 14117 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑖 ∈ (0..^𝑦) β†’ (2↑(𝑖 + 1)) = ((2↑𝑖) Β· 2))
9897adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑(𝑖 + 1)) = ((2↑𝑖) Β· 2))
9995, 98oveq12d 7430 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = ((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· ((2↑𝑖) Β· 2)))
10030a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 2 ∈ β„•)
101 elfzoelz 13637 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑖 ∈ (0..^𝑦) β†’ 𝑖 ∈ β„€)
102101adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 𝑖 ∈ β„€)
103 nn0rp0 13437 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((π‘Ž / 2) ∈ β„•0 β†’ (π‘Ž / 2) ∈ (0[,)+∞))
1041, 103syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((π‘Ž / 2) ∈ β„• β†’ (π‘Ž / 2) ∈ (0[,)+∞))
105104ad4antr 729 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (π‘Ž / 2) ∈ (0[,)+∞))
106 digvalnn0 47373 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((2 ∈ β„• ∧ 𝑖 ∈ β„€ ∧ (π‘Ž / 2) ∈ (0[,)+∞)) β†’ (𝑖(digitβ€˜2)(π‘Ž / 2)) ∈ β„•0)
107100, 102, 105, 106syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)(π‘Ž / 2)) ∈ β„•0)
108107nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖(digitβ€˜2)(π‘Ž / 2)) ∈ β„‚)
109 2re 12291 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 2 ∈ ℝ
110109a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑖 ∈ (0..^𝑦) β†’ 2 ∈ ℝ)
111110, 92reexpcld 14133 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑖 ∈ (0..^𝑦) β†’ (2↑𝑖) ∈ ℝ)
112111recnd 11247 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑖 ∈ (0..^𝑦) β†’ (2↑𝑖) ∈ β„‚)
113112adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑𝑖) ∈ β„‚)
114 2cnd 12295 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ 2 ∈ β„‚)
115 mulass 11202 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑖(digitβ€˜2)(π‘Ž / 2)) ∈ β„‚ ∧ (2↑𝑖) ∈ β„‚ ∧ 2 ∈ β„‚) β†’ (((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2) = ((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· ((2↑𝑖) Β· 2)))
116115eqcomd 2737 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑖(digitβ€˜2)(π‘Ž / 2)) ∈ β„‚ ∧ (2↑𝑖) ∈ β„‚ ∧ 2 ∈ β„‚) β†’ ((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· ((2↑𝑖) Β· 2)) = (((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
117108, 113, 114, 116syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· ((2↑𝑖) Β· 2)) = (((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
11899, 117eqtrd 2771 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = (((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
119118sumeq2dv 15654 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = Σ𝑖 ∈ (0..^𝑦)(((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
120 0cn 11211 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 0 ∈ β„‚
121 pncan1 11643 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (0 ∈ β„‚ β†’ ((0 + 1) βˆ’ 1) = 0)
122120, 121ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((0 + 1) βˆ’ 1) = 0
123122a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ β„• β†’ ((0 + 1) βˆ’ 1) = 0)
124123oveq1d 7427 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ β„• β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0...(𝑦 βˆ’ 1)))
125 fzoval 13638 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ β„€ β†’ (0..^𝑦) = (0...(𝑦 βˆ’ 1)))
126125eqcomd 2737 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ β„€ β†’ (0...(𝑦 βˆ’ 1)) = (0..^𝑦))
12720, 126syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ β„• β†’ (0...(𝑦 βˆ’ 1)) = (0..^𝑦))
128124, 127eqtrd 2771 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ β„• β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0..^𝑦))
129128adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1)) = (0..^𝑦))
130129sumeq1d 15652 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) = Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
131130oveq2d 7428 . . . . . . . . . . . . . . . . . . . . . . 23 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))) = (0 + Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))))
132 fzofi 13944 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (0..^𝑦) ∈ Fin
133132a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0..^𝑦) ∈ Fin)
134101peano2zd 12674 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 ∈ (0..^𝑦) β†’ (𝑖 + 1) ∈ β„€)
135134adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (𝑖 + 1) ∈ β„€)
13636ad4antlr 730 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ π‘Ž ∈ (0[,)+∞))
137 digvalnn0 47373 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((2 ∈ β„• ∧ (𝑖 + 1) ∈ β„€ ∧ π‘Ž ∈ (0[,)+∞)) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) ∈ β„•0)
138100, 135, 136, 137syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) ∈ β„•0)
139138nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖 + 1)(digitβ€˜2)π‘Ž) ∈ β„‚)
14041a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 ∈ (0..^𝑦) β†’ 2 ∈ β„•0)
141 peano2nn0 12517 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑖 ∈ β„•0 β†’ (𝑖 + 1) ∈ β„•0)
14292, 141syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 ∈ (0..^𝑦) β†’ (𝑖 + 1) ∈ β„•0)
143140, 142nn0expcld 14214 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑖 ∈ (0..^𝑦) β†’ (2↑(𝑖 + 1)) ∈ β„•0)
144143nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑖 ∈ (0..^𝑦) β†’ (2↑(𝑖 + 1)) ∈ β„‚)
145144adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑(𝑖 + 1)) ∈ β„‚)
146139, 145mulcld 11239 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) ∈ β„‚)
147133, 146fsumcl 15684 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))) ∈ β„‚)
148147addlidd 11420 . . . . . . . . . . . . . . . . . . . . . . 23 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0 + Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))) = Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
149131, 148eqtrd 2771 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))) = Σ𝑖 ∈ (0..^𝑦)(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1))))
150 2cnd 12295 . . . . . . . . . . . . . . . . . . . . . . 23 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ 2 ∈ β„‚)
151140, 92nn0expcld 14214 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑖 ∈ (0..^𝑦) β†’ (2↑𝑖) ∈ β„•0)
152151nn0cnd 12539 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑖 ∈ (0..^𝑦) β†’ (2↑𝑖) ∈ β„‚)
153152adantl 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ (2↑𝑖) ∈ β„‚)
154108, 153mulcld 11239 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑦)) β†’ ((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) ∈ β„‚)
155133, 150, 154fsummulc1 15736 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2) = Σ𝑖 ∈ (0..^𝑦)(((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
156119, 149, 1553eqtr4d 2781 . . . . . . . . . . . . . . . . . . . . 21 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (0 + Σ𝑖 ∈ (((0 + 1) βˆ’ 1)...(𝑦 βˆ’ 1))(((𝑖 + 1)(digitβ€˜2)π‘Ž) Β· (2↑(𝑖 + 1)))) = (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
15789, 156eqtrd 2771 . . . . . . . . . . . . . . . . . . . 20 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (((0(digitβ€˜2)π‘Ž) Β· 1) + Ξ£π‘˜ ∈ ((0 + 1)...𝑦)((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))) = (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
15825, 56, 1573eqtrd 2775 . . . . . . . . . . . . . . . . . . 19 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
159158adantl 481 . . . . . . . . . . . . . . . . . 18 (((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ∧ ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•)) β†’ Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)) = (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2))
160 oveq1 7419 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ = 𝑖 β†’ (π‘˜(digitβ€˜2)(π‘Ž / 2)) = (𝑖(digitβ€˜2)(π‘Ž / 2)))
161 oveq2 7420 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘˜ = 𝑖 β†’ (2β†‘π‘˜) = (2↑𝑖))
162160, 161oveq12d 7430 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ = 𝑖 β†’ ((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) = ((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)))
163162cbvsumv 15647 . . . . . . . . . . . . . . . . . . . . . . 23 Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖))
164163a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)))
165164eqeq2d 2742 . . . . . . . . . . . . . . . . . . . . 21 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ↔ (π‘Ž / 2) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖))))
166165biimpac 478 . . . . . . . . . . . . . . . . . . . 20 (((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ∧ ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•)) β†’ (π‘Ž / 2) = Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)))
167166eqcomd 2737 . . . . . . . . . . . . . . . . . . 19 (((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ∧ ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•)) β†’ Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) = (π‘Ž / 2))
168167oveq1d 7427 . . . . . . . . . . . . . . . . . 18 (((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ∧ ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•)) β†’ (Σ𝑖 ∈ (0..^𝑦)((𝑖(digitβ€˜2)(π‘Ž / 2)) Β· (2↑𝑖)) Β· 2) = ((π‘Ž / 2) Β· 2))
169 nncn 12225 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ž ∈ β„• β†’ π‘Ž ∈ β„‚)
170 2cnd 12295 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ž ∈ β„• β†’ 2 ∈ β„‚)
171 2ne0 12321 . . . . . . . . . . . . . . . . . . . . . 22 2 β‰  0
172171a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ž ∈ β„• β†’ 2 β‰  0)
173169, 170, 172divcan1d 11996 . . . . . . . . . . . . . . . . . . . 20 (π‘Ž ∈ β„• β†’ ((π‘Ž / 2) Β· 2) = π‘Ž)
174173ad3antlr 728 . . . . . . . . . . . . . . . . . . 19 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((π‘Ž / 2) Β· 2) = π‘Ž)
175174adantl 481 . . . . . . . . . . . . . . . . . 18 (((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ∧ ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•)) β†’ ((π‘Ž / 2) Β· 2) = π‘Ž)
176159, 168, 1753eqtrrd 2776 . . . . . . . . . . . . . . . . 17 (((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) ∧ ((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•)) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))
177176ex 412 . . . . . . . . . . . . . . . 16 ((π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜)) β†’ (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))
178177imim2i 16 . . . . . . . . . . . . . . 15 (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
179178com13 88 . . . . . . . . . . . . . 14 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
18019, 179sylbid 239 . . . . . . . . . . . . 13 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
181180com23 86 . . . . . . . . . . . 12 (((((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) ∧ (#bβ€˜π‘Ž) = (𝑦 + 1)) ∧ 𝑦 ∈ β„•) β†’ (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
182181exp31 419 . . . . . . . . . . 11 (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ (𝑦 ∈ β„• β†’ (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
183182com25 99 . . . . . . . . . 10 (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
184183com14 96 . . . . . . . . 9 (((#bβ€˜(π‘Ž / 2)) = 𝑦 β†’ (π‘Ž / 2) = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)(π‘Ž / 2)) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
18512, 184syl 17 . . . . . . . 8 (((π‘Ž / 2) ∈ β„•0 ∧ βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜)))) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
186185ex 412 . . . . . . 7 ((π‘Ž / 2) ∈ β„•0 β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
187186com25 99 . . . . . 6 ((π‘Ž / 2) ∈ β„•0 β†’ (((π‘Ž / 2) ∈ β„• ∧ π‘Ž ∈ β„•) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
188187expdcom 414 . . . . 5 ((π‘Ž / 2) ∈ β„• β†’ (π‘Ž ∈ β„• β†’ ((π‘Ž / 2) ∈ β„•0 β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))))
1891, 188mpid 44 . . . 4 ((π‘Ž / 2) ∈ β„• β†’ (π‘Ž ∈ β„• β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))))
190189impcom 407 . . 3 ((π‘Ž ∈ β„• ∧ (π‘Ž / 2) ∈ β„•) β†’ ((#bβ€˜(π‘Ž / 2)) = ((#bβ€˜π‘Ž) βˆ’ 1) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))))
1913, 190mpd 15 . 2 ((π‘Ž ∈ β„• ∧ (π‘Ž / 2) ∈ β„•) β†’ (𝑦 ∈ β„• β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜))))))
192191imp 406 1 (((π‘Ž ∈ β„• ∧ (π‘Ž / 2) ∈ β„•) ∧ 𝑦 ∈ β„•) β†’ (βˆ€π‘₯ ∈ β„•0 ((#bβ€˜π‘₯) = 𝑦 β†’ π‘₯ = Ξ£π‘˜ ∈ (0..^𝑦)((π‘˜(digitβ€˜2)π‘₯) Β· (2β†‘π‘˜))) β†’ ((#bβ€˜π‘Ž) = (𝑦 + 1) β†’ π‘Ž = Ξ£π‘˜ ∈ (0..^(𝑦 + 1))((π‘˜(digitβ€˜2)π‘Ž) Β· (2β†‘π‘˜)))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2105   β‰  wne 2939  βˆ€wral 3060  β€˜cfv 6543  (class class class)co 7412  Fincfn 8943  β„‚cc 11112  β„cr 11113  0cc0 11114  1c1 11115   + caddc 11117   Β· cmul 11119  +∞cpnf 11250   βˆ’ cmin 11449   / cdiv 11876  β„•cn 12217  2c2 12272  β„•0cn0 12477  β„€cz 12563  β„€β‰₯cuz 12827  [,)cico 13331  ...cfz 13489  ..^cfzo 13632  β†‘cexp 14032  Ξ£csu 15637  #bcblen 47343  digitcdig 47369
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729  ax-inf2 9640  ax-cnex 11170  ax-resscn 11171  ax-1cn 11172  ax-icn 11173  ax-addcl 11174  ax-addrcl 11175  ax-mulcl 11176  ax-mulrcl 11177  ax-mulcom 11178  ax-addass 11179  ax-mulass 11180  ax-distr 11181  ax-i2m1 11182  ax-1ne0 11183  ax-1rid 11184  ax-rnegex 11185  ax-rrecex 11186  ax-cnre 11187  ax-pre-lttri 11188  ax-pre-lttrn 11189  ax-pre-ltadd 11190  ax-pre-mulgt0 11191  ax-pre-sup 11192  ax-addf 11193
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  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 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7674  df-om 7860  df-1st 7979  df-2nd 7980  df-supp 8151  df-frecs 8270  df-wrecs 8301  df-recs 8375  df-rdg 8414  df-1o 8470  df-2o 8471  df-er 8707  df-map 8826  df-pm 8827  df-ixp 8896  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-fsupp 9366  df-fi 9410  df-sup 9441  df-inf 9442  df-oi 9509  df-card 9938  df-pnf 11255  df-mnf 11256  df-xr 11257  df-ltxr 11258  df-le 11259  df-sub 11451  df-neg 11452  df-div 11877  df-nn 12218  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-7 12285  df-8 12286  df-9 12287  df-n0 12478  df-z 12564  df-dec 12683  df-uz 12828  df-q 12938  df-rp 12980  df-xneg 13097  df-xadd 13098  df-xmul 13099  df-ioo 13333  df-ioc 13334  df-ico 13335  df-icc 13336  df-fz 13490  df-fzo 13633  df-fl 13762  df-mod 13840  df-seq 13972  df-exp 14033  df-fac 14239  df-bc 14268  df-hash 14296  df-shft 15019  df-cj 15051  df-re 15052  df-im 15053  df-sqrt 15187  df-abs 15188  df-limsup 15420  df-clim 15437  df-rlim 15438  df-sum 15638  df-ef 16016  df-sin 16018  df-cos 16019  df-pi 16021  df-struct 17085  df-sets 17102  df-slot 17120  df-ndx 17132  df-base 17150  df-ress 17179  df-plusg 17215  df-mulr 17216  df-starv 17217  df-sca 17218  df-vsca 17219  df-ip 17220  df-tset 17221  df-ple 17222  df-ds 17224  df-unif 17225  df-hom 17226  df-cco 17227  df-rest 17373  df-topn 17374  df-0g 17392  df-gsum 17393  df-topgen 17394  df-pt 17395  df-prds 17398  df-xrs 17453  df-qtop 17458  df-imas 17459  df-xps 17461  df-mre 17535  df-mrc 17536  df-acs 17538  df-mgm 18566  df-sgrp 18645  df-mnd 18661  df-submnd 18707  df-mulg 18988  df-cntz 19223  df-cmn 19692  df-psmet 21137  df-xmet 21138  df-met 21139  df-bl 21140  df-mopn 21141  df-fbas 21142  df-fg 21143  df-cnfld 21146  df-top 22617  df-topon 22634  df-topsp 22656  df-bases 22670  df-cld 22744  df-ntr 22745  df-cls 22746  df-nei 22823  df-lp 22861  df-perf 22862  df-cn 22952  df-cnp 22953  df-haus 23040  df-tx 23287  df-hmeo 23480  df-fil 23571  df-fm 23663  df-flim 23664  df-flf 23665  df-xms 24047  df-ms 24048  df-tms 24049  df-cncf 24619  df-limc 25616  df-dv 25617  df-log 26302  df-logb 26507  df-blen 47344  df-dig 47370
This theorem is referenced by:  nn0sumshdiglem1  47395
  Copyright terms: Public domain W3C validator