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 43613
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 6774 . . 3 (𝑥 = 1 → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1))
2 oveq2 7283 . . . . . 6 (𝑥 = 1 → (4 · 𝑥) = (4 · 1))
32oveq2d 7291 . . . . 5 (𝑥 = 1 → (2↑(4 · 𝑥)) = (2↑(4 · 1)))
4 fveq2 6774 . . . . . 6 (𝑥 = 1 → (!‘𝑥) = (!‘1))
54oveq1d 7290 . . . . 5 (𝑥 = 1 → ((!‘𝑥)↑4) = ((!‘1)↑4))
63, 5oveq12d 7293 . . . 4 (𝑥 = 1 → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · 1)) · ((!‘1)↑4)))
7 oveq2 7283 . . . . . 6 (𝑥 = 1 → (2 · 𝑥) = (2 · 1))
87fveq2d 6778 . . . . 5 (𝑥 = 1 → (!‘(2 · 𝑥)) = (!‘(2 · 1)))
98oveq1d 7290 . . . 4 (𝑥 = 1 → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · 1))↑2))
106, 9oveq12d 7293 . . 3 (𝑥 = 1 → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2)))
111, 10eqeq12d 2754 . 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 6774 . . 3 (𝑥 = 𝑦 → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦))
13 oveq2 7283 . . . . . 6 (𝑥 = 𝑦 → (4 · 𝑥) = (4 · 𝑦))
1413oveq2d 7291 . . . . 5 (𝑥 = 𝑦 → (2↑(4 · 𝑥)) = (2↑(4 · 𝑦)))
15 fveq2 6774 . . . . . 6 (𝑥 = 𝑦 → (!‘𝑥) = (!‘𝑦))
1615oveq1d 7290 . . . . 5 (𝑥 = 𝑦 → ((!‘𝑥)↑4) = ((!‘𝑦)↑4))
1714, 16oveq12d 7293 . . . 4 (𝑥 = 𝑦 → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)))
18 oveq2 7283 . . . . . 6 (𝑥 = 𝑦 → (2 · 𝑥) = (2 · 𝑦))
1918fveq2d 6778 . . . . 5 (𝑥 = 𝑦 → (!‘(2 · 𝑥)) = (!‘(2 · 𝑦)))
2019oveq1d 7290 . . . 4 (𝑥 = 𝑦 → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · 𝑦))↑2))
2117, 20oveq12d 7293 . . 3 (𝑥 = 𝑦 → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)))
2212, 21eqeq12d 2754 . 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 6774 . . 3 (𝑥 = (𝑦 + 1) → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘(𝑦 + 1)))
24 oveq2 7283 . . . . . 6 (𝑥 = (𝑦 + 1) → (4 · 𝑥) = (4 · (𝑦 + 1)))
2524oveq2d 7291 . . . . 5 (𝑥 = (𝑦 + 1) → (2↑(4 · 𝑥)) = (2↑(4 · (𝑦 + 1))))
26 fveq2 6774 . . . . . 6 (𝑥 = (𝑦 + 1) → (!‘𝑥) = (!‘(𝑦 + 1)))
2726oveq1d 7290 . . . . 5 (𝑥 = (𝑦 + 1) → ((!‘𝑥)↑4) = ((!‘(𝑦 + 1))↑4))
2825, 27oveq12d 7293 . . . 4 (𝑥 = (𝑦 + 1) → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)))
29 oveq2 7283 . . . . . 6 (𝑥 = (𝑦 + 1) → (2 · 𝑥) = (2 · (𝑦 + 1)))
3029fveq2d 6778 . . . . 5 (𝑥 = (𝑦 + 1) → (!‘(2 · 𝑥)) = (!‘(2 · (𝑦 + 1))))
3130oveq1d 7290 . . . 4 (𝑥 = (𝑦 + 1) → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · (𝑦 + 1)))↑2))
3228, 31oveq12d 7293 . . 3 (𝑥 = (𝑦 + 1) → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
3323, 32eqeq12d 2754 . 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 6774 . . 3 (𝑥 = 𝑁 → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑥) = (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑁))
35 oveq2 7283 . . . . . 6 (𝑥 = 𝑁 → (4 · 𝑥) = (4 · 𝑁))
3635oveq2d 7291 . . . . 5 (𝑥 = 𝑁 → (2↑(4 · 𝑥)) = (2↑(4 · 𝑁)))
37 fveq2 6774 . . . . . 6 (𝑥 = 𝑁 → (!‘𝑥) = (!‘𝑁))
3837oveq1d 7290 . . . . 5 (𝑥 = 𝑁 → ((!‘𝑥)↑4) = ((!‘𝑁)↑4))
3936, 38oveq12d 7293 . . . 4 (𝑥 = 𝑁 → ((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) = ((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)))
40 oveq2 7283 . . . . . 6 (𝑥 = 𝑁 → (2 · 𝑥) = (2 · 𝑁))
4140fveq2d 6778 . . . . 5 (𝑥 = 𝑁 → (!‘(2 · 𝑥)) = (!‘(2 · 𝑁)))
4241oveq1d 7290 . . . 4 (𝑥 = 𝑁 → ((!‘(2 · 𝑥))↑2) = ((!‘(2 · 𝑁))↑2))
4339, 42oveq12d 7293 . . 3 (𝑥 = 𝑁 → (((2↑(4 · 𝑥)) · ((!‘𝑥)↑4)) / ((!‘(2 · 𝑥))↑2)) = (((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)) / ((!‘(2 · 𝑁))↑2)))
4434, 43eqeq12d 2754 . 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 12350 . . . 4 1 ∈ ℤ
46 seq1 13734 . . . 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 11984 . . . 4 1 ∈ ℕ
49 oveq2 7283 . . . . . . 7 (𝑘 = 1 → (2 · 𝑘) = (2 · 1))
5049oveq1d 7290 . . . . . 6 (𝑘 = 1 → ((2 · 𝑘)↑4) = ((2 · 1)↑4))
5149oveq1d 7290 . . . . . . . 8 (𝑘 = 1 → ((2 · 𝑘) − 1) = ((2 · 1) − 1))
5249, 51oveq12d 7293 . . . . . . 7 (𝑘 = 1 → ((2 · 𝑘) · ((2 · 𝑘) − 1)) = ((2 · 1) · ((2 · 1) − 1)))
5352oveq1d 7290 . . . . . 6 (𝑘 = 1 → (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2) = (((2 · 1) · ((2 · 1) − 1))↑2))
5450, 53oveq12d 7293 . . . . 5 (𝑘 = 1 → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)))
55 eqid 2738 . . . . 5 (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))) = (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))
56 ovex 7308 . . . . 5 (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)) ∈ V
5754, 55, 56fvmpt 6875 . . . 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 12136 . . . . . 6 (2 · 1) = 2
6059oveq1i 7285 . . . . 5 ((2 · 1)↑4) = (2↑4)
61 2exp4 16786 . . . . . . 7 (2↑4) = 16
62 1nn0 12249 . . . . . . . 8 1 ∈ ℕ0
63 6nn0 12254 . . . . . . . 8 6 ∈ ℕ0
64 0nn0 12248 . . . . . . . 8 0 ∈ ℕ0
65 1t1e1 12135 . . . . . . . . . 10 (1 · 1) = 1
6665oveq1i 7285 . . . . . . . . 9 ((1 · 1) + 0) = (1 + 0)
67 1p0e1 12097 . . . . . . . . 9 (1 + 0) = 1
6866, 67eqtri 2766 . . . . . . . 8 ((1 · 1) + 0) = 1
69 6cn 12064 . . . . . . . . . 10 6 ∈ ℂ
7069mulid1i 10979 . . . . . . . . 9 (6 · 1) = 6
7163dec0h 12459 . . . . . . . . 9 6 = 06
7270, 71eqtri 2766 . . . . . . . 8 (6 · 1) = 06
7362, 62, 63, 61, 63, 64, 68, 72decmul1c 12502 . . . . . . 7 ((2↑4) · 1) = 16
7461, 73eqtr4i 2769 . . . . . 6 (2↑4) = ((2↑4) · 1)
75 2nn0 12250 . . . . . . . . 9 2 ∈ ℕ0
76 2t2e4 12137 . . . . . . . . 9 (2 · 2) = 4
77 sq1 13912 . . . . . . . . 9 (1↑2) = 1
7862, 75, 76, 77, 65numexp2x 16780 . . . . . . . 8 (1↑4) = 1
7978eqcomi 2747 . . . . . . 7 1 = (1↑4)
8079oveq2i 7286 . . . . . 6 ((2↑4) · 1) = ((2↑4) · (1↑4))
81 4cn 12058 . . . . . . . . . 10 4 ∈ ℂ
8281mulid1i 10979 . . . . . . . . 9 (4 · 1) = 4
8382eqcomi 2747 . . . . . . . 8 4 = (4 · 1)
8483oveq2i 7286 . . . . . . 7 (2↑4) = (2↑(4 · 1))
85 fac1 13991 . . . . . . . . 9 (!‘1) = 1
8685eqcomi 2747 . . . . . . . 8 1 = (!‘1)
8786oveq1i 7285 . . . . . . 7 (1↑4) = ((!‘1)↑4)
8884, 87oveq12i 7287 . . . . . 6 ((2↑4) · (1↑4)) = ((2↑(4 · 1)) · ((!‘1)↑4))
8974, 80, 883eqtri 2770 . . . . 5 (2↑4) = ((2↑(4 · 1)) · ((!‘1)↑4))
9060, 89eqtri 2766 . . . 4 ((2 · 1)↑4) = ((2↑(4 · 1)) · ((!‘1)↑4))
9159oveq1i 7285 . . . . . . . 8 ((2 · 1) − 1) = (2 − 1)
92 2m1e1 12099 . . . . . . . 8 (2 − 1) = 1
9391, 92eqtri 2766 . . . . . . 7 ((2 · 1) − 1) = 1
9493oveq2i 7286 . . . . . 6 ((2 · 1) · ((2 · 1) − 1)) = ((2 · 1) · 1)
9559oveq1i 7285 . . . . . . 7 ((2 · 1) · 1) = (2 · 1)
9695, 59eqtri 2766 . . . . . 6 ((2 · 1) · 1) = 2
9759fveq2i 6777 . . . . . . . 8 (!‘(2 · 1)) = (!‘2)
98 fac2 13993 . . . . . . . 8 (!‘2) = 2
9997, 98eqtri 2766 . . . . . . 7 (!‘(2 · 1)) = 2
10099eqcomi 2747 . . . . . 6 2 = (!‘(2 · 1))
10194, 96, 1003eqtri 2770 . . . . 5 ((2 · 1) · ((2 · 1) − 1)) = (!‘(2 · 1))
102101oveq1i 7285 . . . 4 (((2 · 1) · ((2 · 1) − 1))↑2) = ((!‘(2 · 1))↑2)
10390, 102oveq12i 7287 . . 3 (((2 · 1)↑4) / (((2 · 1) · ((2 · 1) − 1))↑2)) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2))
10447, 58, 1033eqtri 2770 . 2 (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘1) = (((2↑(4 · 1)) · ((!‘1)↑4)) / ((!‘(2 · 1))↑2))
105 elnnuz 12622 . . . . . . 7 (𝑦 ∈ ℕ ↔ 𝑦 ∈ (ℤ‘1))
106105biimpi 215 . . . . . 6 (𝑦 ∈ ℕ → 𝑦 ∈ (ℤ‘1))
107106adantr 481 . . . . 5 ((𝑦 ∈ ℕ ∧ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑦) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2))) → 𝑦 ∈ (ℤ‘1))
108 seqp1 13736 . . . . 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 485 . . . . 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 7290 . . . 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 2739 . . . . . . . 8 (𝑦 ∈ ℕ → (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))) = (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))
113 oveq2 7283 . . . . . . . . . . 11 (𝑘 = (𝑦 + 1) → (2 · 𝑘) = (2 · (𝑦 + 1)))
114113oveq1d 7290 . . . . . . . . . 10 (𝑘 = (𝑦 + 1) → ((2 · 𝑘)↑4) = ((2 · (𝑦 + 1))↑4))
115113oveq1d 7290 . . . . . . . . . . . 12 (𝑘 = (𝑦 + 1) → ((2 · 𝑘) − 1) = ((2 · (𝑦 + 1)) − 1))
116113, 115oveq12d 7293 . . . . . . . . . . 11 (𝑘 = (𝑦 + 1) → ((2 · 𝑘) · ((2 · 𝑘) − 1)) = ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)))
117116oveq1d 7290 . . . . . . . . . 10 (𝑘 = (𝑦 + 1) → (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2) = (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2))
118114, 117oveq12d 7293 . . . . . . . . 9 (𝑘 = (𝑦 + 1) → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
119118adantl 482 . . . . . . . 8 ((𝑦 ∈ ℕ ∧ 𝑘 = (𝑦 + 1)) → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
120 peano2nn 11985 . . . . . . . 8 (𝑦 ∈ ℕ → (𝑦 + 1) ∈ ℕ)
121 2cnd 12051 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 2 ∈ ℂ)
122 nncn 11981 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 𝑦 ∈ ℂ)
123 1cnd 10970 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 1 ∈ ℂ)
124122, 123addcld 10994 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (𝑦 + 1) ∈ ℂ)
125121, 124mulcld 10995 . . . . . . . . . 10 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) ∈ ℂ)
126 4nn0 12252 . . . . . . . . . . 11 4 ∈ ℕ0
127126a1i 11 . . . . . . . . . 10 (𝑦 ∈ ℕ → 4 ∈ ℕ0)
128125, 127expcld 13864 . . . . . . . . 9 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1))↑4) ∈ ℂ)
129125, 123subcld 11332 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) ∈ ℂ)
130125, 129mulcld 10995 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)) ∈ ℂ)
131130sqcld 13862 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2) ∈ ℂ)
132 2pos 12076 . . . . . . . . . . . . . 14 0 < 2
133132a1i 11 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 0 < 2)
134133gt0ne0d 11539 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 2 ≠ 0)
135120nnne0d 12023 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (𝑦 + 1) ≠ 0)
136121, 124, 134, 135mulne0d 11627 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) ≠ 0)
137 1red 10976 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 1 ∈ ℝ)
138 2re 12047 . . . . . . . . . . . . . . 15 2 ∈ ℝ
139138a1i 11 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 2 ∈ ℝ)
140 nnre 11980 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → 𝑦 ∈ ℝ)
141140, 137readdcld 11004 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (𝑦 + 1) ∈ ℝ)
142 1lt2 12144 . . . . . . . . . . . . . . 15 1 < 2
143142a1i 11 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 1 < 2)
144 nnrp 12741 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → 𝑦 ∈ ℝ+)
145137, 144ltaddrp2d 12806 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 1 < (𝑦 + 1))
146139, 141, 143, 145mulgt1d 11911 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 1 < (2 · (𝑦 + 1)))
147137, 146gtned 11110 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) ≠ 1)
148125, 123, 147subne0d 11341 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) ≠ 0)
149125, 129, 136, 148mulne0d 11627 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)) ≠ 0)
150 2z 12352 . . . . . . . . . . 11 2 ∈ ℤ
151150a1i 11 . . . . . . . . . 10 (𝑦 ∈ ℕ → 2 ∈ ℤ)
152130, 149, 151expne0d 13870 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2) ≠ 0)
153128, 131, 152divcld 11751 . . . . . . . 8 (𝑦 ∈ ℕ → (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)) ∈ ℂ)
154112, 119, 120, 153fvmptd 6882 . . . . . . 7 (𝑦 ∈ ℕ → ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1)) = (((2 · (𝑦 + 1))↑4) / (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
155154oveq2d 7291 . . . . . 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 12240 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 𝑦 ∈ ℕ0)
157127, 156nn0mulcld 12298 . . . . . . . . . 10 (𝑦 ∈ ℕ → (4 · 𝑦) ∈ ℕ0)
158121, 157expcld 13864 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑(4 · 𝑦)) ∈ ℂ)
159 faccl 13997 . . . . . . . . . . 11 (𝑦 ∈ ℕ0 → (!‘𝑦) ∈ ℕ)
160 nncn 11981 . . . . . . . . . . 11 ((!‘𝑦) ∈ ℕ → (!‘𝑦) ∈ ℂ)
161156, 159, 1603syl 18 . . . . . . . . . 10 (𝑦 ∈ ℕ → (!‘𝑦) ∈ ℂ)
162161, 127expcld 13864 . . . . . . . . 9 (𝑦 ∈ ℕ → ((!‘𝑦)↑4) ∈ ℂ)
163158, 162mulcld 10995 . . . . . . . 8 (𝑦 ∈ ℕ → ((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) ∈ ℂ)
16475a1i 11 . . . . . . . . . . 11 (𝑦 ∈ ℕ → 2 ∈ ℕ0)
165164, 156nn0mulcld 12298 . . . . . . . . . 10 (𝑦 ∈ ℕ → (2 · 𝑦) ∈ ℕ0)
166 faccl 13997 . . . . . . . . . 10 ((2 · 𝑦) ∈ ℕ0 → (!‘(2 · 𝑦)) ∈ ℕ)
167 nncn 11981 . . . . . . . . . 10 ((!‘(2 · 𝑦)) ∈ ℕ → (!‘(2 · 𝑦)) ∈ ℂ)
168165, 166, 1673syl 18 . . . . . . . . 9 (𝑦 ∈ ℕ → (!‘(2 · 𝑦)) ∈ ℂ)
169168sqcld 13862 . . . . . . . 8 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦))↑2) ∈ ℂ)
170165, 166syl 17 . . . . . . . . . 10 (𝑦 ∈ ℕ → (!‘(2 · 𝑦)) ∈ ℕ)
171170nnne0d 12023 . . . . . . . . 9 (𝑦 ∈ ℕ → (!‘(2 · 𝑦)) ≠ 0)
172168, 171, 151expne0d 13870 . . . . . . . 8 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦))↑2) ≠ 0)
173163, 169, 128, 131, 172, 152divmuldivd 11792 . . . . . . 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 13879 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1))↑4) = ((2↑4) · ((𝑦 + 1)↑4)))
175174oveq2d 7291 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2 · (𝑦 + 1))↑4)) = (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2↑4) · ((𝑦 + 1)↑4))))
176121, 127expcld 13864 . . . . . . . . . 10 (𝑦 ∈ ℕ → (2↑4) ∈ ℂ)
177124, 127expcld 13864 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((𝑦 + 1)↑4) ∈ ℂ)
178158, 162, 176, 177mul4d 11187 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2↑4) · ((𝑦 + 1)↑4))) = (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦)↑4) · ((𝑦 + 1)↑4))))
179161, 124, 127mulexpd 13879 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (((!‘𝑦) · (𝑦 + 1))↑4) = (((!‘𝑦)↑4) · ((𝑦 + 1)↑4)))
180179eqcomd 2744 . . . . . . . . . 10 (𝑦 ∈ ℕ → (((!‘𝑦)↑4) · ((𝑦 + 1)↑4)) = (((!‘𝑦) · (𝑦 + 1))↑4))
181180oveq2d 7291 . . . . . . . . 9 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦)↑4) · ((𝑦 + 1)↑4))) = (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)))
182175, 178, 1813eqtrd 2782 . . . . . . . 8 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) · ((2 · (𝑦 + 1))↑4)) = (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)))
183121, 122mulcld 10995 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (2 · 𝑦) ∈ ℂ)
184183, 123addcld 10994 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + 1) ∈ ℂ)
185125, 184mulcomd 10996 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1)) = (((2 · 𝑦) + 1) · (2 · (𝑦 + 1))))
186185oveq2d 7291 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1))) = ((!‘(2 · 𝑦)) · (((2 · 𝑦) + 1) · (2 · (𝑦 + 1)))))
187121, 122, 123adddid 10999 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → (2 · (𝑦 + 1)) = ((2 · 𝑦) + (2 · 1)))
188187oveq1d 7290 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) = (((2 · 𝑦) + (2 · 1)) − 1))
18959, 121eqeltrid 2843 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → (2 · 1) ∈ ℂ)
190183, 189, 123addsubassd 11352 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (((2 · 𝑦) + (2 · 1)) − 1) = ((2 · 𝑦) + ((2 · 1) − 1)))
19159a1i 11 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ ℕ → (2 · 1) = 2)
192191oveq1d 7290 . . . . . . . . . . . . . . . 16 (𝑦 ∈ ℕ → ((2 · 1) − 1) = (2 − 1))
193192, 92eqtrdi 2794 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → ((2 · 1) − 1) = 1)
194193oveq2d 7291 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → ((2 · 𝑦) + ((2 · 1) − 1)) = ((2 · 𝑦) + 1))
195188, 190, 1943eqtrd 2782 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) − 1) = ((2 · 𝑦) + 1))
196195oveq2d 7291 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)) = ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1)))
197196oveq2d 7291 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))) = ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · 𝑦) + 1))))
198168, 184, 125mulassd 10998 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))) = ((!‘(2 · 𝑦)) · (((2 · 𝑦) + 1) · (2 · (𝑦 + 1)))))
199186, 197, 1983eqtr4d 2788 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))) = (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))))
200199oveq1d 7290 . . . . . . . . 9 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)))↑2) = ((((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1)))↑2))
201168, 130, 164mulexpd 13879 . . . . . . . . 9 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1)))↑2) = (((!‘(2 · 𝑦))↑2) · (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)))
202 df-2 12036 . . . . . . . . . . . . . . 15 2 = (1 + 1)
203202a1i 11 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → 2 = (1 + 1))
204203oveq2d 7291 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = ((2 · 𝑦) + (1 + 1)))
205183, 123, 123addassd 10997 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → (((2 · 𝑦) + 1) + 1) = ((2 · 𝑦) + (1 + 1)))
206204, 205eqtr4d 2781 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = (((2 · 𝑦) + 1) + 1))
207206fveq2d 6778 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (!‘((2 · 𝑦) + 2)) = (!‘(((2 · 𝑦) + 1) + 1)))
20862a1i 11 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → 1 ∈ ℕ0)
209165, 208nn0addcld 12297 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → ((2 · 𝑦) + 1) ∈ ℕ0)
210 facp1 13992 . . . . . . . . . . . 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 13992 . . . . . . . . . . . . 13 ((2 · 𝑦) ∈ ℕ0 → (!‘((2 · 𝑦) + 1)) = ((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)))
213165, 212syl 17 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (!‘((2 · 𝑦) + 1)) = ((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)))
214203eqcomd 2744 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → (1 + 1) = 2)
215214oveq2d 7291 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + (1 + 1)) = ((2 · 𝑦) + 2))
216214, 202, 593eqtr4g 2803 . . . . . . . . . . . . . . 15 (𝑦 ∈ ℕ → 2 = (2 · 1))
217216oveq2d 7291 . . . . . . . . . . . . . 14 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = ((2 · 𝑦) + (2 · 1)))
218217, 187eqtr4d 2781 . . . . . . . . . . . . 13 (𝑦 ∈ ℕ → ((2 · 𝑦) + 2) = (2 · (𝑦 + 1)))
219205, 215, 2183eqtrd 2782 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → (((2 · 𝑦) + 1) + 1) = (2 · (𝑦 + 1)))
220213, 219oveq12d 7293 . . . . . . . . . . 11 (𝑦 ∈ ℕ → ((!‘((2 · 𝑦) + 1)) · (((2 · 𝑦) + 1) + 1)) = (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))))
221207, 211, 2203eqtrrd 2783 . . . . . . . . . 10 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1))) = (!‘((2 · 𝑦) + 2)))
222221oveq1d 7290 . . . . . . . . 9 (𝑦 ∈ ℕ → ((((!‘(2 · 𝑦)) · ((2 · 𝑦) + 1)) · (2 · (𝑦 + 1)))↑2) = ((!‘((2 · 𝑦) + 2))↑2))
223200, 201, 2223eqtr3d 2786 . . . . . . . 8 (𝑦 ∈ ℕ → (((!‘(2 · 𝑦))↑2) · (((2 · (𝑦 + 1)) · ((2 · (𝑦 + 1)) − 1))↑2)) = ((!‘((2 · 𝑦) + 2))↑2))
224182, 223oveq12d 7293 . . . . . . 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 2778 . . . . . 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 7291 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((4 · 𝑦) + 4) = ((4 · 𝑦) + (4 · 1)))
228227oveq2d 7291 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑((4 · 𝑦) + 4)) = (2↑((4 · 𝑦) + (4 · 1))))
229121, 127, 157expaddd 13866 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑((4 · 𝑦) + 4)) = ((2↑(4 · 𝑦)) · (2↑4)))
23081a1i 11 . . . . . . . . . . . 12 (𝑦 ∈ ℕ → 4 ∈ ℂ)
231230, 122, 123adddid 10999 . . . . . . . . . . 11 (𝑦 ∈ ℕ → (4 · (𝑦 + 1)) = ((4 · 𝑦) + (4 · 1)))
232231eqcomd 2744 . . . . . . . . . 10 (𝑦 ∈ ℕ → ((4 · 𝑦) + (4 · 1)) = (4 · (𝑦 + 1)))
233232oveq2d 7291 . . . . . . . . 9 (𝑦 ∈ ℕ → (2↑((4 · 𝑦) + (4 · 1))) = (2↑(4 · (𝑦 + 1))))
234228, 229, 2333eqtr3d 2786 . . . . . . . 8 (𝑦 ∈ ℕ → ((2↑(4 · 𝑦)) · (2↑4)) = (2↑(4 · (𝑦 + 1))))
235 facp1 13992 . . . . . . . . . . 11 (𝑦 ∈ ℕ0 → (!‘(𝑦 + 1)) = ((!‘𝑦) · (𝑦 + 1)))
236156, 235syl 17 . . . . . . . . . 10 (𝑦 ∈ ℕ → (!‘(𝑦 + 1)) = ((!‘𝑦) · (𝑦 + 1)))
237236eqcomd 2744 . . . . . . . . 9 (𝑦 ∈ ℕ → ((!‘𝑦) · (𝑦 + 1)) = (!‘(𝑦 + 1)))
238237oveq1d 7290 . . . . . . . 8 (𝑦 ∈ ℕ → (((!‘𝑦) · (𝑦 + 1))↑4) = ((!‘(𝑦 + 1))↑4))
239234, 238oveq12d 7293 . . . . . . 7 (𝑦 ∈ ℕ → (((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)) = ((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)))
240218fveq2d 6778 . . . . . . . 8 (𝑦 ∈ ℕ → (!‘((2 · 𝑦) + 2)) = (!‘(2 · (𝑦 + 1))))
241240oveq1d 7290 . . . . . . 7 (𝑦 ∈ ℕ → ((!‘((2 · 𝑦) + 2))↑2) = ((!‘(2 · (𝑦 + 1)))↑2))
242239, 241oveq12d 7293 . . . . . 6 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · (2↑4)) · (((!‘𝑦) · (𝑦 + 1))↑4)) / ((!‘((2 · 𝑦) + 2))↑2)) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
243155, 225, 2423eqtrd 2782 . . . . 5 (𝑦 ∈ ℕ → ((((2↑(4 · 𝑦)) · ((!‘𝑦)↑4)) / ((!‘(2 · 𝑦))↑2)) · ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘(𝑦 + 1))) = (((2↑(4 · (𝑦 + 1))) · ((!‘(𝑦 + 1))↑4)) / ((!‘(2 · (𝑦 + 1)))↑2)))
244243adantr 481 . . . 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 2782 . . 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 413 . 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 11991 1 (𝑁 ∈ ℕ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑁) = (((2↑(4 · 𝑁)) · ((!‘𝑁)↑4)) / ((!‘(2 · 𝑁))↑2)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1539  wcel 2106   class class class wbr 5074  cmpt 5157  cfv 6433  (class class class)co 7275  cc 10869  cr 10870  0cc0 10871  1c1 10872   + caddc 10874   · cmul 10876   < clt 11009  cmin 11205   / cdiv 11632  cn 11973  2c2 12028  4c4 12030  6c6 12032  0cn0 12233  cz 12319  cdc 12437  cuz 12582  seqcseq 13721  cexp 13782  !cfa 13987
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-om 7713  df-2nd 7832  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-er 8498  df-en 8734  df-dom 8735  df-sdom 8736  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-div 11633  df-nn 11974  df-2 12036  df-3 12037  df-4 12038  df-5 12039  df-6 12040  df-7 12041  df-8 12042  df-9 12043  df-n0 12234  df-z 12320  df-dec 12438  df-uz 12583  df-rp 12731  df-seq 13722  df-exp 13783  df-fac 13988
This theorem is referenced by:  wallispi2  43614
  Copyright terms: Public domain W3C validator