Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  wallispi2lem2 Structured version   Visualization version   GIF version

Theorem wallispi2lem2 40792
Description: Two expressions are proven to be equal, and this is used to complete the proof of the second version of Wallis' formula for π . (Contributed by Glauco Siliprandi, 30-Jun-2017.)
Assertion
Ref Expression
wallispi2lem2 (𝑁 ∈ ℕ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑁) = (((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)) / ((!‘(2 · 𝑁))↑2)))

Proof of Theorem wallispi2lem2
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6352 . . 3 (𝑥 = 1 → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1))
2 oveq2 6821 . . . . . 6 (𝑥 = 1 → (4 · 𝑥) = (4 · 1))
32oveq2d 6829 . . . . 5 (𝑥 = 1 → (2↑(4 · 𝑥)) = (2↑(4 · 1)))
4 fveq2 6352 . . . . . 6 (𝑥 = 1 → (!‘𝑥) = (!‘1))
54oveq1d 6828 . . . . 5 (𝑥 = 1 → ((!‘𝑥)↑4) = ((!‘1)↑4))
63, 5oveq12d 6831 . . . 4 (𝑥 = 1 → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · 1)) · ((!‘1)↑4)))
7 oveq2 6821 . . . . . 6 (𝑥 = 1 → (2 · 𝑥) = (2 · 1))
87fveq2d 6356 . . . . 5 (𝑥 = 1 → (!‘(2 · 𝑥)) = (!‘(2 · 1)))
98oveq1d 6828 . . . 4 (𝑥 = 1 → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · 1))↑2))
106, 9oveq12d 6831 . . 3 (𝑥 = 1 → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2)))
111, 10eqeq12d 2775 . 2 (𝑥 = 1 → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) ↔ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2))))
12 fveq2 6352 . . 3 (𝑥 = 𝑦 → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦))
13 oveq2 6821 . . . . . 6 (𝑥 = 𝑦 → (4 · 𝑥) = (4 · 𝑦))
1413oveq2d 6829 . . . . 5 (𝑥 = 𝑦 → (2↑(4 · 𝑥)) = (2↑(4 · 𝑦)))
15 fveq2 6352 . . . . . 6 (𝑥 = 𝑦 → (!‘𝑥) = (!‘𝑦))
1615oveq1d 6828 . . . . 5 (𝑥 = 𝑦 → ((!‘𝑥)↑4) = ((!‘𝑦)↑4))
1714, 16oveq12d 6831 . . . 4 (𝑥 = 𝑦 → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)))
18 oveq2 6821 . . . . . 6 (𝑥 = 𝑦 → (2 · 𝑥) = (2 · 𝑦))
1918fveq2d 6356 . . . . 5 (𝑥 = 𝑦 → (!‘(2 · 𝑥)) = (!‘(2 · 𝑦)))
2019oveq1d 6828 . . . 4 (𝑥 = 𝑦 → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · 𝑦))↑2))
2117, 20oveq12d 6831 . . 3 (𝑥 = 𝑦 → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)))
2212, 21eqeq12d 2775 . 2 (𝑥 = 𝑦 → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) ↔ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))))
23 fveq2 6352 . . 3 (𝑥 = (𝑦 + 1) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)))
24 oveq2 6821 . . . . . 6 (𝑥 = (𝑦 + 1) → (4 · 𝑥) = (4 · (𝑦 + 1)))
2524oveq2d 6829 . . . . 5 (𝑥 = (𝑦 + 1) → (2↑(4 · 𝑥)) = (2↑(4 · (𝑦 + 1))))
26 fveq2 6352 . . . . . 6 (𝑥 = (𝑦 + 1) → (!‘𝑥) = (!‘(𝑦 + 1)))
2726oveq1d 6828 . . . . 5 (𝑥 = (𝑦 + 1) → ((!‘𝑥)↑4) = ((!‘(𝑦 + 1))↑4))
2825, 27oveq12d 6831 . . . 4 (𝑥 = (𝑦 + 1) → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)))
29 oveq2 6821 . . . . . 6 (𝑥 = (𝑦 + 1) → (2 · 𝑥) = (2 · (𝑦 + 1)))
3029fveq2d 6356 . . . . 5 (𝑥 = (𝑦 + 1) → (!‘(2 · 𝑥)) = (!‘(2 · (𝑦 + 1))))
3130oveq1d 6828 . . . 4 (𝑥 = (𝑦 + 1) → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · (𝑦 + 1)))↑2))
3228, 31oveq12d 6831 . . 3 (𝑥 = (𝑦 + 1) → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
3323, 32eqeq12d 2775 . 2 (𝑥 = (𝑦 + 1) → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) ↔ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2))))
34 fveq2 6352 . . 3 (𝑥 = 𝑁 → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑁))
35 oveq2 6821 . . . . . 6 (𝑥 = 𝑁 → (4 · 𝑥) = (4 · 𝑁))
3635oveq2d 6829 . . . . 5 (𝑥 = 𝑁 → (2↑(4 · 𝑥)) = (2↑(4 · 𝑁)))
37 fveq2 6352 . . . . . 6 (𝑥 = 𝑁 → (!‘𝑥) = (!‘𝑁))
3837oveq1d 6828 . . . . 5 (𝑥 = 𝑁 → ((!‘𝑥)↑4) = ((!‘𝑁)↑4))
3936, 38oveq12d 6831 . . . 4 (𝑥 = 𝑁 → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)))
40 oveq2 6821 . . . . . 6 (𝑥 = 𝑁 → (2 · 𝑥) = (2 · 𝑁))
4140fveq2d 6356 . . . . 5 (𝑥 = 𝑁 → (!‘(2 · 𝑥)) = (!‘(2 · 𝑁)))
4241oveq1d 6828 . . . 4 (𝑥 = 𝑁 → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · 𝑁))↑2))
4339, 42oveq12d 6831 . . 3 (𝑥 = 𝑁 → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)) / ((!‘(2 · 𝑁))↑2)))
4434, 43eqeq12d 2775 . 2 (𝑥 = 𝑁 → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) ↔ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑁) = (((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)) / ((!‘(2 · 𝑁))↑2))))
45 1z 11599 . . . 4 1 ∈ ℤ
46 seq1 13008 . . . 4 (1 ∈ ℤ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1) = ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘1))
4745, 46ax-mp 5 . . 3 (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1) = ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘1)
48 1nn 11223 . . . 4 1 ∈ ℕ
49 oveq2 6821 . . . . . . 7 (𝑘 = 1 → (2 · 𝑘) = (2 · 1))
5049oveq1d 6828 . . . . . 6 (𝑘 = 1 → ((2 · 𝑘)↑4) = ((2 · 1)↑4))
5149oveq1d 6828 . . . . . . . 8 (𝑘 = 1 → ((2 · 𝑘) − 1) = ((2 · 1) − 1))
5249, 51oveq12d 6831 . . . . . . 7 (𝑘 = 1 → ((2 · 𝑘) · ((2 · 𝑘) − 1)) = ((2 · 1) · ((2 · 1) − 1)))
5352oveq1d 6828 . . . . . 6 (𝑘 = 1 → (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2) = (((2 · 1) · ((2 · 1) − 1))↑2))
5450, 53oveq12d 6831 . . . . 5 (𝑘 = 1 → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)))
55 eqid 2760 . . . . 5 (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))) = (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))
56 ovex 6841 . . . . 5 (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)) ∈ V
5754, 55, 56fvmpt 6444 . . . 4 (1 ∈ ℕ → ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘1) = (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)))
5848, 57ax-mp 5 . . 3 ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘1) = (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2))
59 2t1e2 11368 . . . . . 6 (2 · 1) = 2
6059oveq1i 6823 . . . . 5 ((2 · 1)↑4) = (2↑4)
61 2exp4 15996 . . . . . . 7 (2↑4) = 16
62 1nn0 11500 . . . . . . . 8 1 ∈ ℕ0
63 6nn0 11505 . . . . . . . 8 6 ∈ ℕ0
64 0nn0 11499 . . . . . . . 8 0 ∈ ℕ0
65 1t1e1 11367 . . . . . . . . . 10 (1 · 1) = 1
6665oveq1i 6823 . . . . . . . . 9 ((1 · 1) + 0) = (1 + 0)
67 1p0e1 11325 . . . . . . . . 9 (1 + 0) = 1
6866, 67eqtri 2782 . . . . . . . 8 ((1 · 1) + 0) = 1
69 6cn 11294 . . . . . . . . . 10 6 ∈ ℂ
7069mulid1i 10234 . . . . . . . . 9 (6 · 1) = 6
7163dec0h 11714 . . . . . . . . 9 6 = 06
7270, 71eqtri 2782 . . . . . . . 8 (6 · 1) = 06
7362, 62, 63, 61, 63, 64, 68, 72decmul1c 11779 . . . . . . 7 ((2↑4) · 1) = 16
7461, 73eqtr4i 2785 . . . . . 6 (2↑4) = ((2↑4) · 1)
75 2nn0 11501 . . . . . . . . 9 2 ∈ ℕ0
76 2t2e4 11369 . . . . . . . . 9 (2 · 2) = 4
77 sq1 13152 . . . . . . . . 9 (1↑2) = 1
7862, 75, 76, 77, 65numexp2x 15985 . . . . . . . 8 (1↑4) = 1
7978eqcomi 2769 . . . . . . 7 1 = (1↑4)
8079oveq2i 6824 . . . . . 6 ((2↑4) · 1) = ((2↑4) · (1↑4))
81 4cn 11290 . . . . . . . . . 10 4 ∈ ℂ
8281mulid1i 10234 . . . . . . . . 9 (4 · 1) = 4
8382eqcomi 2769 . . . . . . . 8 4 = (4 · 1)
8483oveq2i 6824 . . . . . . 7 (2↑4) = (2↑(4 · 1))
85 fac1 13258 . . . . . . . . 9 (!‘1) = 1
8685eqcomi 2769 . . . . . . . 8 1 = (!‘1)
8786oveq1i 6823 . . . . . . 7 (1↑4) = ((!‘1)↑4)
8884, 87oveq12i 6825 . . . . . 6 ((2↑4) · (1↑4)) = ((2↑(4 · 1)) · ((!‘1)↑4))
8974, 80, 883eqtri 2786 . . . . 5 (2↑4) = ((2↑(4 · 1)) · ((!‘1)↑4))
9060, 89eqtri 2782 . . . 4 ((2 · 1)↑4) = ((2↑(4 · 1)) · ((!‘1)↑4))
9159oveq1i 6823 . . . . . . . 8 ((2 · 1) − 1) = (2 − 1)
92 2m1e1 11327 . . . . . . . 8 (2 − 1) = 1
9391, 92eqtri 2782 . . . . . . 7 ((2 · 1) − 1) = 1
9493oveq2i 6824 . . . . . 6 ((2 · 1) · ((2 · 1) − 1)) = ((2 · 1) · 1)
9559oveq1i 6823 . . . . . . 7 ((2 · 1) · 1) = (2 · 1)
9695, 59eqtri 2782 . . . . . 6 ((2 · 1) · 1) = 2
9759fveq2i 6355 . . . . . . . 8 (!‘(2 · 1)) = (!‘2)
98 fac2 13260 . . . . . . . 8 (!‘2) = 2
9997, 98eqtri 2782 . . . . . . 7 (!‘(2 · 1)) = 2
10099eqcomi 2769 . . . . . 6 2 = (!‘(2 · 1))
10194, 96, 1003eqtri 2786 . . . . 5 ((2 · 1) · ((2 · 1) − 1)) = (!‘(2 · 1))
102101oveq1i 6823 . . . 4 (((2 · 1) · ((2 · 1) − 1))↑2) = ((!‘(2 · 1))↑2)
10390, 102oveq12i 6825 . . 3 (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2))
10447, 58, 1033eqtri 2786 . 2 (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2))
105 elnnuz 11917 . . . . . . 7 (𝑦 ∈ ℕ ↔ 𝑦 ∈ (ℤ‘1))
106105biimpi 206 . . . . . 6 (𝑦 ∈ ℕ → 𝑦 ∈ (ℤ‘1))
107106adantr 472 . . . . 5 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → 𝑦 ∈ (ℤ‘1))
108 seqp1 13010 . . . . 5 (𝑦 ∈ (ℤ‘1) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)) = ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))))
109107, 108syl 17 . . . 4 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)) = ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))))
110 simpr 479 . . . . 5 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)))
111110oveq1d 6828 . . . 4 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))) = ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))))
112 eqidd 2761 . . . . . . . 8 (𝑦 ∈ ℕ → (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))) = (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))
113 oveq2 6821 . . . . . . . . . . 11 (𝑘 = (𝑦 + 1) → (2 · 𝑘) = (2 · (𝑦 + 1)))
114113oveq1d 6828 . . . . . . . . . 10 (𝑘 = (𝑦 + 1) → ((2 · 𝑘)↑4) = ((2 · (𝑦 + 1))↑4))
115113oveq1d 6828 . . . . . . . . . . . 12 (𝑘 = (𝑦 + 1) → ((2 · 𝑘) − 1) = ((2 · (𝑦 + 1)) − 1))
116113, 115oveq12d 6831 . . . . . . . . . . 11 (𝑘 = (𝑦 + 1) → ((2 · 𝑘) · ((2 · 𝑘) − 1)) = ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)))
117116oveq1d 6828 . . . . . . . . . 10 (𝑘 = (𝑦 + 1) → (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2) = (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))
118114, 117oveq12d 6831 . . . . . . . . 9 (𝑘 = (𝑦 + 1) → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
119118adantl 473 . . . . . . . 8 ((𝑦 ∈ ℕ ∧ 𝑘 = (𝑦 + 1)) → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
120 peano2nn 11224 . . . . . . . 8 (𝑦 ∈ ℕ → (𝑦 + 1) ∈ ℕ)
121 2cnd 11285 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 2 ∈ ℂ)
122 nncn 11220 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 𝑦 ∈ ℂ)
123 1cnd 10248 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 1 ∈ ℂ)
124122, 123addcld 10251 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (𝑦 + 1) ∈ ℂ)
125121, 124mulcld 10252 . . . . . . . . . 10 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) ∈ ℂ)
126 4nn0 11503 . . . . . . . . . . 11 4 ∈ ℕ0
127126a1i 11 . . . . . . . . . 10 (𝑦 ∈ ℕ → 4 ∈ ℕ0)
128125, 127expcld 13202 . . . . . . . . 9 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1))↑4) ∈ ℂ)
129125, 123subcld 10584 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) ∈ ℂ)
130125, 129mulcld 10252 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)) ∈ ℂ)
131130sqcld 13200 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2) ∈ ℂ)
132 2pos 11304 . . . . . . . . . . . . . 14 0 < 2
133132a1i 11 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 0 < 2)
134133gt0ne0d 10784 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 2 ≠ 0)
135120nnne0d 11257 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (𝑦 + 1) ≠ 0)
136121, 124, 134, 135mulne0d 10871 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) ≠ 0)
137 1red 10247 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 1 ∈ ℝ)
138 2re 11282 . . . . . . . . . . . . . . 15 2 ∈ ℝ
139138a1i 11 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 2 ∈ ℝ)
140 nnre 11219 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → 𝑦 ∈ ℝ)
141140, 137readdcld 10261 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (𝑦 + 1) ∈ ℝ)
142 1lt2 11386 . . . . . . . . . . . . . . 15 1 < 2
143142a1i 11 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 1 < 2)
144 nnrp 12035 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → 𝑦 ∈ ℝ+)
145137, 144ltaddrp2d 12099 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 1 < (𝑦 + 1))
146139, 141, 143, 145mulgt1d 11152 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 1 < (2 · (𝑦 + 1)))
147137, 146gtned 10364 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) ≠ 1)
148125, 123, 147subne0d 10593 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) ≠ 0)
149125, 129, 136, 148mulne0d 10871 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)) ≠ 0)
150 2z 11601 . . . . . . . . . . 11 2 ∈ ℤ
151150a1i 11 . . . . . . . . . 10 (𝑦 ∈ ℕ → 2 ∈ ℤ)
152130, 149, 151expne0d 13208 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2) ≠ 0)
153128, 131, 152divcld 10993 . . . . . . . 8 (𝑦 ∈ ℕ → (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)) ∈ ℂ)
154112, 119, 120, 153fvmptd 6450 . . . . . . 7 (𝑦 ∈ ℕ → ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1)) = (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
155154oveq2d 6829 . . . . . 6 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))) = ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))))
156 nnnn0 11491 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 𝑦 ∈ ℕ0)
157127, 156nn0mulcld 11548 . . . . . . . . . 10 (𝑦 ∈ ℕ → (4 · 𝑦) ∈ ℕ0)
158121, 157expcld 13202 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑(4 · 𝑦)) ∈ ℂ)
159 faccl 13264 . . . . . . . . . . 11 (𝑦 ∈ ℕ0 → (!‘𝑦) ∈ ℕ)
160 nncn 11220 . . . . . . . . . . 11 ((!‘𝑦) ∈ ℕ → (!‘𝑦) ∈ ℂ)
161156, 159, 1603syl 18 . . . . . . . . . 10 (𝑦 ∈ ℕ → (!‘𝑦) ∈ ℂ)
162161, 127expcld 13202 . . . . . . . . 9 (𝑦 ∈ ℕ → ((!‘𝑦)↑4) ∈ ℂ)
163158, 162mulcld 10252 . . . . . . . 8 (𝑦 ∈ ℕ → ((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) ∈ ℂ)
16475a1i 11 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 2 ∈ ℕ0)
165164, 156nn0mulcld 11548 . . . . . . . . . 10 (𝑦 ∈ ℕ → (2 · 𝑦) ∈ ℕ0)
166 faccl 13264 . . . . . . . . . 10 ((2 · 𝑦) ∈ ℕ0 → (!‘(2 · 𝑦)) ∈ ℕ)
167 nncn 11220 . . . . . . . . . 10 ((!‘(2 · 𝑦)) ∈ ℕ → (!‘(2 · 𝑦)) ∈ ℂ)
168165, 166, 1673syl 18 . . . . . . . . 9 (𝑦 ∈ ℕ → (!‘(2 · 𝑦)) ∈ ℂ)
169168sqcld 13200 . . . . . . . 8 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦))↑2) ∈ ℂ)
170165, 166syl 17 . . . . . . . . . 10 (𝑦 ∈ ℕ → (!‘(2 · 𝑦)) ∈ ℕ)
171170nnne0d 11257 . . . . . . . . 9 (𝑦 ∈ ℕ → (!‘(2 · 𝑦)) ≠ 0)
172168, 171, 151expne0d 13208 . . . . . . . 8 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦))↑2) ≠ 0)
173163, 169, 128, 131, 172, 152divmuldivd 11034 . . . . . . 7 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))) = ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2 · (𝑦 + 1))↑4)) / (((!‘(2 · 𝑦))↑2) · (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))))
174121, 124, 127mulexpd 13217 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1))↑4) = ((2↑4) · ((𝑦 + 1)↑4)))
175174oveq2d 6829 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2 · (𝑦 + 1))↑4)) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2↑4) · ((𝑦 + 1)↑4))))
176121, 127expcld 13202 . . . . . . . . . 10 (𝑦 ∈ ℕ → (2↑4) ∈ ℂ)
177124, 127expcld 13202 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((𝑦 + 1)↑4) ∈ ℂ)
178158, 162, 176, 177mul4d 10440 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2↑4) · ((𝑦 + 1)↑4))) = (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦)↑4) · ((𝑦 + 1)↑4))))
179161, 124, 127mulexpd 13217 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (((!‘𝑦) · (𝑦 + 1))↑4) = (((!‘𝑦)↑4) · ((𝑦 + 1)↑4)))
180179eqcomd 2766 . . . . . . . . . 10 (𝑦 ∈ ℕ → (((!‘𝑦)↑4) · ((𝑦 + 1)↑4)) = (((!‘𝑦) · (𝑦 + 1))↑4))
181180oveq2d 6829 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦)↑4) · ((𝑦 + 1)↑4))) = (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)))
182175, 178, 1813eqtrd 2798 . . . . . . . 8 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2 · (𝑦 + 1))↑4)) = (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)))
183121, 122mulcld 10252 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (2 · 𝑦) ∈ ℂ)
184183, 123addcld 10251 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + 1) ∈ ℂ)
185125, 184mulcomd 10253 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1)) = (((2 · 𝑦) + 1) · (2 · (𝑦 + 1))))
186185oveq2d 6829 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1))) = ((!‘(2 · 𝑦)) · (((2 · 𝑦) + 1) · (2 · (𝑦 + 1)))))
187121, 122, 123adddid 10256 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) = ((2 · 𝑦) + (2 · 1)))
188187oveq1d 6828 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) = (((2 · 𝑦) + (2 · 1)) − 1))
18959, 121syl5eqel 2843 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → (2 · 1) ∈ ℂ)
190183, 189, 123addsubassd 10604 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (((2 · 𝑦) + (2 · 1)) − 1) = ((2 · 𝑦) + ((2 · 1) − 1)))
19159a1i 11 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ ℕ → (2 · 1) = 2)
192191oveq1d 6828 . . . . . . . . . . . . . . . 16 (𝑦 ∈ ℕ → ((2 · 1) − 1) = (2 − 1))
193192, 92syl6eq 2810 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → ((2 · 1) − 1) = 1)
194193oveq2d 6829 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → ((2 · 𝑦) + ((2 · 1) − 1)) = ((2 · 𝑦) + 1))
195188, 190, 1943eqtrd 2798 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) = ((2 · 𝑦) + 1))
196195oveq2d 6829 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)) = ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1)))
197196oveq2d 6829 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))) = ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1))))
198168, 184, 125mulassd 10255 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))) = ((!‘(2 · 𝑦)) · (((2 · 𝑦) + 1) · (2 · (𝑦 + 1)))))
199186, 197, 1983eqtr4d 2804 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))) = (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))))
200199oveq1d 6828 . . . . . . . . 9 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)))↑2) = ((((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1)))↑2))
201168, 130, 164mulexpd 13217 . . . . . . . . 9 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)))↑2) = (((!‘(2 · 𝑦))↑2) · (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
202 df-2 11271 . . . . . . . . . . . . . . 15 2 = (1 + 1)
203202a1i 11 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 2 = (1 + 1))
204203oveq2d 6829 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = ((2 · 𝑦) + (1 + 1)))
205183, 123, 123addassd 10254 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → (((2 · 𝑦) + 1) + 1) = ((2 · 𝑦) + (1 + 1)))
206204, 205eqtr4d 2797 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = (((2 · 𝑦) + 1) + 1))
207206fveq2d 6356 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (!‘((2 · 𝑦) + 2)) = (!‘(((2 · 𝑦) + 1) + 1)))
20862a1i 11 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 1 ∈ ℕ0)
209165, 208nn0addcld 11547 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · 𝑦) + 1) ∈ ℕ0)
210 facp1 13259 . . . . . . . . . . . 12 (((2 · 𝑦) + 1) ∈ ℕ0 → (!‘(((2 · 𝑦) + 1) + 1)) = ((!‘((2 · 𝑦) + 1)) · (((2 · 𝑦) + 1) + 1)))
211209, 210syl 17 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (!‘(((2 · 𝑦) + 1) + 1)) = ((!‘((2 · 𝑦) + 1)) · (((2 · 𝑦) + 1) + 1)))
212 facp1 13259 . . . . . . . . . . . . 13 ((2 · 𝑦) ∈ ℕ0 → (!‘((2 · 𝑦) + 1)) = ((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)))
213165, 212syl 17 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (!‘((2 · 𝑦) + 1)) = ((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)))
214203eqcomd 2766 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (1 + 1) = 2)
215214oveq2d 6829 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + (1 + 1)) = ((2 · 𝑦) + 2))
216214, 202, 593eqtr4g 2819 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → 2 = (2 · 1))
217216oveq2d 6829 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = ((2 · 𝑦) + (2 · 1)))
218217, 187eqtr4d 2797 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = (2 · (𝑦 + 1)))
219205, 215, 2183eqtrd 2798 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (((2 · 𝑦) + 1) + 1) = (2 · (𝑦 + 1)))
220213, 219oveq12d 6831 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((!‘((2 · 𝑦) + 1)) · (((2 · 𝑦) + 1) + 1)) = (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))))
221207, 211, 2203eqtrrd 2799 . . . . . . . . . 10 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))) = (!‘((2 · 𝑦) + 2)))
222221oveq1d 6828 . . . . . . . . 9 (𝑦 ∈ ℕ → ((((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1)))↑2) = ((!‘((2 · 𝑦) + 2))↑2))
223200, 201, 2223eqtr3d 2802 . . . . . . . 8 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦))↑2) · (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)) = ((!‘((2 · 𝑦) + 2))↑2))
224182, 223oveq12d 6831 . . . . . . 7 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2 · (𝑦 + 1))↑4)) / (((!‘(2 · 𝑦))↑2) · (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))) = ((((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)) / ((!‘((2 · 𝑦) + 2))↑2)))
225173, 224eqtrd 2794 . . . . . 6 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))) = ((((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)) / ((!‘((2 · 𝑦) + 2))↑2)))
22683a1i 11 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 4 = (4 · 1))
227226oveq2d 6829 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((4 · 𝑦) + 4) = ((4 · 𝑦) + (4 · 1)))
228227oveq2d 6829 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑((4 · 𝑦) + 4)) = (2↑((4 · 𝑦) + (4 · 1))))
229121, 127, 157expaddd 13204 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑((4 · 𝑦) + 4)) = ((2↑(4 · 𝑦)) · (2↑4)))
23081a1i 11 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 4 ∈ ℂ)
231230, 122, 123adddid 10256 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (4 · (𝑦 + 1)) = ((4 · 𝑦) + (4 · 1)))
232231eqcomd 2766 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((4 · 𝑦) + (4 · 1)) = (4 · (𝑦 + 1)))
233232oveq2d 6829 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑((4 · 𝑦) + (4 · 1))) = (2↑(4 · (𝑦 + 1))))
234228, 229, 2333eqtr3d 2802 . . . . . . . 8 (𝑦 ∈ ℕ → ((2↑(4 · 𝑦)) · (2↑4)) = (2↑(4 · (𝑦 + 1))))
235 facp1 13259 . . . . . . . . . . 11 (𝑦 ∈ ℕ0 → (!‘(𝑦 + 1)) = ((!‘𝑦) · (𝑦 + 1)))
236156, 235syl 17 . . . . . . . . . 10 (𝑦 ∈ ℕ → (!‘(𝑦 + 1)) = ((!‘𝑦) · (𝑦 + 1)))
237236eqcomd 2766 . . . . . . . . 9 (𝑦 ∈ ℕ → ((!‘𝑦) · (𝑦 + 1)) = (!‘(𝑦 + 1)))
238237oveq1d 6828 . . . . . . . 8 (𝑦 ∈ ℕ → (((!‘𝑦) · (𝑦 + 1))↑4) = ((!‘(𝑦 + 1))↑4))
239234, 238oveq12d 6831 . . . . . . 7 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)) = ((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)))
240218fveq2d 6356 . . . . . . . 8 (𝑦 ∈ ℕ → (!‘((2 · 𝑦) + 2)) = (!‘(2 · (𝑦 + 1))))
241240oveq1d 6828 . . . . . . 7 (𝑦 ∈ ℕ → ((!‘((2 · 𝑦) + 2))↑2) = ((!‘(2 · (𝑦 + 1)))↑2))
242239, 241oveq12d 6831 . . . . . 6 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)) / ((!‘((2 · 𝑦) + 2))↑2)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
243155, 225, 2423eqtrd 2798 . . . . 5 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
244243adantr 472 . . . 4 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
245109, 111, 2443eqtrd 2798 . . 3 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
246245ex 449 . 2 (𝑦 ∈ ℕ → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2))))
24711, 22, 33, 44, 104, 246nnind 11230 1 (𝑁 ∈ ℕ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑁) = (((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)) / ((!‘(2 · 𝑁))↑2)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383   = wceq 1632  wcel 2139   class class class wbr 4804  cmpt 4881  cfv 6049  (class class class)co 6813  cc 10126  cr 10127  0cc0 10128  1c1 10129   + caddc 10131   · cmul 10133   < clt 10266  cmin 10458   / cdiv 10876  cn 11212  2c2 11262  4c4 11264  6c6 11266  0cn0 11484  cz 11569  cdc 11685  cuz 11879  seqcseq 12995  cexp 13054  !cfa 13254
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7114  ax-cnex 10184  ax-resscn 10185  ax-1cn 10186  ax-icn 10187  ax-addcl 10188  ax-addrcl 10189  ax-mulcl 10190  ax-mulrcl 10191  ax-mulcom 10192  ax-addass 10193  ax-mulass 10194  ax-distr 10195  ax-i2m1 10196  ax-1ne0 10197  ax-1rid 10198  ax-rnegex 10199  ax-rrecex 10200  ax-cnre 10201  ax-pre-lttri 10202  ax-pre-lttrn 10203  ax-pre-ltadd 10204  ax-pre-mulgt0 10205
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-nel 3036  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-iun 4674  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-riota 6774  df-ov 6816  df-oprab 6817  df-mpt2 6818  df-om 7231  df-2nd 7334  df-wrecs 7576  df-recs 7637  df-rdg 7675  df-er 7911  df-en 8122  df-dom 8123  df-sdom 8124  df-pnf 10268  df-mnf 10269  df-xr 10270  df-ltxr 10271  df-le 10272  df-sub 10460  df-neg 10461  df-div 10877  df-nn 11213  df-2 11271  df-3 11272  df-4 11273  df-5 11274  df-6 11275  df-7 11276  df-8 11277  df-9 11278  df-n0 11485  df-z 11570  df-dec 11686  df-uz 11880  df-rp 12026  df-seq 12996  df-exp 13055  df-fac 13255
This theorem is referenced by:  wallispi2  40793
  Copyright terms: Public domain W3C validator